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FOREWORD 

This  final  report  describes  the  work 

accomplished  by  Computer  Sciences  Corporation 

for  the  Aircraft  and  Crew  Systems  Technology 

Directorate  of  the  Naval  Air  Development 

Center,  Warminster,  Pennsylvania,  in  accordance 
with  the  requirements  defined  by  Task  Order  7, 

"Escape  System  Trajectory  Simulation  and  Micro¬ 
processor  Control  System"  issued  under  Contract 
N62269-78-0191 .  This  work  was  sponsored  by  the 
Naval  Air  Systems  Command  (AIR-340B)  under  AirTask 

A05V- 0000/001B/8F41400000  and  was  monitored  by 

Mr.  Louis  D'Aulerio  and  Mr.  John  Tvburski  of 
NADC . 
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SUNMARY 


Computer  Sciences  Corporation  (CSC)  Bryn  Athyn,  Pennsylvania  conducted 
an  effort  for  the  Crew  Systems  Engineering  Division  (603) ,  Naval  Air 
Development  Center.  The  purpose  of  this  effort  was  to  examine  and  de¬ 
monstrate  the  feasibility  of  using  a  microprocessor  based  systsn  to 
control  the  functions  of  a  vertical  seeking  ejection  seat. 

In  November  1977,  CSC  issued  a  report  containing  the  results  of  an  initial 
study  which  found  the  concept  to  be  feasible  and  recommended  further  anal¬ 
ysis.  To  this  end,  NADC  initiated  the  purchase  of  the  IMSAI  PCS  80/30 
microprocessor  based  software  development  systsn. 

In  July  1978,  CSC  issued  a  second  report  containing  the  results  of  an 
effort  which  consisted  of  the  following  activities: 

1.  Define  the  functional  requirements  of  an  ejection  seat  systsn. 

2.  Develop  software  to  demonstrate  that  the  INTEL  8085  microprocessor 
possesses  the  capabilities  required  to  perform  the  desired  functions. 

3.  Examine  the  reliability  and  maintainability  aspects  of  the  INTEL 
8085  to  determine  whether  it  meets  the  requirements  defined  for 
military  use. 

Of  these,  the  primary  task  was  the  software  development.  Although  the 
program  had  been  designed,  and  much  of  it  coded,  complete  development  was 
postponed  by  delays  in  the  shipment  of  the  IMSAI  PCS  80/30.  In  September, 

CSC  completed  the  development  and  testing  of  the  program,  thus  demonstrat¬ 
ing  the  feasibility  of  the  microprocessor  controlled  ejection  seat  concept. 

The  material  presented  herein  assumes  that  the  reader  has  seme  familiarity 
with  the  IMSAI  PCS  80/30  and  its  operating  systsn  (IMDOS) . 
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1.  INTRODUCTION 

This  document  describes  the  program  that  was  developed  and  tested  to 
demonstrate  the  capability  of  the  INTEL  8085  microprocessor  to  control 
the  functions  of  a  vertical  seeking  ejection  seat.  The  main  subroutines 
are  discussed  in  sane  detail,  with  special  emphasis  given  to  the  imple¬ 
mentation  of  the  vertical  seeking  maneuver,  the  major  function  in  the 
ejection  sequence.  A  listing  of  the  program  is  included,  along  with 
flow  diagrams,  a  definition  of  each  program  variable  and  a  map  of  the 
area  of  memory  containing  the  program  data  buffers  and  variables. 

The  microcanputsr  systan  purchased  for  the  development  of  this  program 
is  the  IMSAI  PCS  80/30,  an  integrated  I/O  terminal  based  on  the  INTEL 
8085  microprocessor.  It  includes  an  intelligent,  programmable  keyboard 
for  direct  data  input,  a  5- inch  CRT  for  data  output,  3  programmable 
memory-mapped  timers  for  real  time  control  and  32K  bytes  of  Random  Access 
Memory  for  program  loading  and  execution.  A  single  density  dual  floppy 
disk  system  provides  mass  storage. 

It  should  be  noted  that  because  of  its  nature  as  a  software  development 
system,  the  IMSAI  PCS  80/30  lacks  the  specialized  hardware  interfaces  and 
"peripheral  devices"  that  would  be  found  on  a  true  ejection  seat  system. 
Therefore,  although  the  program  was  written  for  implementation  on  this 
system,  it  would  have  to  be  modified  slightly  before  being  used  in  a  real 
system.  The  program,  however  was  designed  and  coded  in  such  a  way  as  to 
minimize  this  transition. 
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2.  PROGRAM  DESCRIPTION  ' 

The  program  consist  of  two  parts.  The  first  is  a  lengthy  initialization 
process,  most  of  which  is  necessitated  by  the  fact  that  the  program  is 
implemented  on  a  software  development  system  as  opposed  to  a  real  ejection 
seat  system.  The  second  controls  the  timing,  sequencing  and  simulated 
execution  of  the  ejection  functions.  The  following  discussion  describes 
each  part  in  detail. 

2.1  Initialization 

The  initialization  process  is  accomplished  through  a  series  of  CALLS  to 
the  subroutines  executing  the  appropriate  initialization  functions.  Each 
of  these  subroutines,  its  function,  and  an  explanation  is  given  below. 

2.1.1  INZRST75:  Initialize  Timer  Interrupt  Handler 

Each  timer  interrupt  received  causes  the  execution  of  the  instruction 
"RST  7.5",  which  is  essentially  a  "CALL  00 3C" .  Thus,  code  for  handling 
the  interrupt  must  begin  at  memory  location  3CH ;  however ,  the  operating 
system  under  which  the  program  is  run  (IMDOS)  will  not  load  object  code 
into  any  manor/  location  below  100H.  If  code  is  required  in  that  area 
of  memory,  it  must  be  loaded  by  the  program  itself.  This  subroutine  loads 
the  object  code  for  the  instruction  "JMP  SEQSRT"  (the  timer  interrupt 
handling  routine)  into  manory  locations  3CH,  3DH,  3EH. 

2.1.2  INZTMRS:  Initialize  System  Timers 

Because  the  system  timers  have  no  power-on  reset,  each  is  programmed  to 
count  to  a  short  termination  (.5  us)  and  stop.  Any  timer  interrupts  that 
may  be  present  are  cleared. 

2.1.3  INZDSP:  Initialize  Display 

The  CRT  is  first  initialized  by  CALLing  the  INITIALIZATION  ENTRY  POINT  of 
the  VI 0  firmware  driver.  This  accomplishes  the  following: 

1.  Clears  the  screen 

2.  Positions  the  cursor  in  the  upper  left  comer 

3.  Selects  an  80x24  screen  format 

4.  Selects  UPPER  CASE  display  mode 

5.  Activates  screen  scroll  mode 

INZDSP  then  selects  the  alternate  40x24  screen  format  and  upper  and  lower 
case  display  mode. 
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2.1.4  CHOICE:  Initialize  Test  to  be  Run 

The  demonstration  program  can  execute  the  vertical  seeking  maneuver  frcm 
an  initial  orientation  of  a  90°  roll  or  a  180°  roll.  This  subroutine 
displays  the  message  shown  in  Figure  2.1,  then  waits  for  the  user  to  make 
a  selection.  Upon  receiving  a  valid  input  (1  or  2) ,  CHOICE  defines  the 
initial  orientation  of  the  seat/occupant  system,  sets  up  the  'INITIAL 
ORIENTATION'  message  to  be  displayed  upon  completion  of  the  ejection 
sequence,  and  selects  the  approproate  rate  data  file. 

2. 1.4.1  Define  Initial  Orientation  of  Seat/Occupant  System 

The  program  keeps  track  of  the  orientation  of  the  seat/occupant  system  by 
maintaining  the  direction  cosines  of  the  angles  from  each  of  the  axes  of 
the  seat/occupant  coordinate  system  to  the  vertical  (see  Figure  2.2) . 
Within  the  program,  the  direction  consines  are  maintained  in  double  pre¬ 
cision  (16  bit),  two's  complement  form,  according  to  the  following  scheme: 


% 


Value  of  Direction  Cosine  Value  in  Program 

1  4 00 OH 

0  0000 

-1  C000H 

Thus,  D31,  D32  and  D33,  (the  memory  locations  in  which  the  three  direction 
cosines  are  stored)  are  initialized  as  follows: 


Test  selected 

a31 

D31 

ct32 

D32 

a33 

D33 

1 

90 

0000 

0 

4000H 

90 

0000 

2 

90 

0000 

-90 

0000H 

0 

4000H 

2. 1.4. 2  Set  Uo  ' INITIAL  ORIENTATION '  Messaae 


After  completing  the  execution  of  the  ejection  seat  functions,  the  demon¬ 
stration  program  displays  the  initial  and  final  orientation  of  the  seat/ 
occupant  system.  CHOICE  writes  the  ASCII  code  for  the  decimal  equivalent 
of  the  above  initial  direction  cosines  into  the  message  to  be  displayed. 

2. 1.4. 3  Select  Appropriate  Rate  Data  File 

For  each  test,  there  exists  a  disk  file  containing  the  rate  data  inter¬ 
polating  points  (see  Section  2.1.7).  CHOICE  initializes  the  File  Control 
Block  FUSED  1  to  access  either  file  RDATAl.DAT  or  RDATA2.DAT  for  test  1  or 
test  2  respectively. 
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SELECT  DESIRED  TEST 

1.  90  DEGREE  ROLL 

2.  180  DEGREE  ROLL 


Figure  2-1  CRT  Display  for  Test  Initialization 
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0^ 


D31  =  dir.  cos.  a31 
D32  =  dir.  cos  a 32 


D33  =  dir.  cos.  a 33 


p  =  rate  of  rotation 
around  the  X-axis 
(roll  rate) 

q  =  rate  of  rotation 
around  the  y-axis 
(pitch  rate) 

r  =  rate  of  rotation 
around  the  z-axis 
(yaw  rate) 


Figure  2.2  Seat/Occupant  Coordinate  System  Definition 


-5- 


REPORT  NO.  NADC- 79240- 60 


2.1.5  INZDSK:  Initialize  Disk 

All  disk  I/O  is  handled  through  BOOS  and  this  requires  that  a  File  Control 
Block  (FCB)  be  set  up  for  each  file  to  be  accessed  by  the  program.  This 
subroutine  initializes  the  PCB  s  for  each  of  four  files  used  by  the  pro¬ 
gram.  It  then  opens  each  file. 

2.1.6  INZVRBLS:  Initialize  Program  Variables 

Certain  program  variables  must  be  either  cleared  or  set  to  a  predefined 
initial  value.  A  list  of  these  variables  and  their  initial  value  is  given 
in  Figure  2.3.  For  a  canplete  description  of  the  function  of  each  of  these 
variables  (see  Section  4.3) .  For  their  location  in  memory  see  Section  4.4. 

2.1.7  INZBDATA:  Initialize  Rate  Data 

Because  there  is  no  device  attached  to  the  software  development  systen  to 
generate  the  rate  data  that  is  required  during  the  vertical  seeking  maneu¬ 
ver,  this  information  had  to  be  obtained  from  another  source.  The  input 
data  used  was  based  on  that  recorded  during  actual  test  ejections  per¬ 
formed  at  the  Naval  Weapons  Center,  China  Lake,  CA.  Figures  2.4,  2.5  and 
2.6  and  Figures  2.7,  2.8  and  2.9  are  the  graphs  of  the  rate  data  recorded 
during  the  90°  roll  test  and  the  180°  roll  test,  respectively,  of  the 
vertical  seeking  seat.  This  data  was  digitized,  translated  to  the  form 
used  in  the  program  (see  Table  3.1) ,  entered  via  the  keyboard,  and  stored 
on  the  disk.  However,  because  of  the  impracticality  of  manually  entering 
each  data  point  required  (7200  bytes/test) ,  only  the  data  corresponding 
to  certain  points  in  time  were  entered.  Using  these  data  points  as  inter¬ 
polating  points,  the  program  performs  a  linear  interpolation  to  generate 
the  rest  of  the  data.  This  data  is  then  stored  in  memory  and  read  as 
required  during  the  vertical  seeking  maneuver. 

2. 1.7.1  LINT:  Linear  Interpolation 

According  to  the  report  in  which  the  test  data  was  issued,  microprocessor 
control  is  initiated  at  .389  seconds.  Since  the  rocket  motor  bums  for  a 
nominal  1.5  seconds,  the  data  between  T=.389  and  T=1.389  was  assumed  to 
have  been  used  in  the  test  to  perform  the  vertical  seeking  maneuver. 
Accordingly,  it  is  from  this  portion  of  each  graph  that  the  interpolating 
points  were  read.  The  total  elapsed  times  differ  in  the  demonstration 
program  as  indicated  on  the  graphs  and  defined  as  follows: 

T=.389  =  T=.55  in  demo  program 

T=1.889  =  T=2.05  in  demo  program 

In  the  vertical  seeking  algorithm,  these  times  in  turn  correspond  to  t=0 
and  t=1500  (where  t=  number  of  ms  after  the  beginning  of  the  maneuver) 
and  are  also  indicated  on  the  graph.  For  consistency  with  the  discussion 
of  the  vertical  seeking  algorithm  (see  Section  3)  it  is  these  times  that 
are  used  below. 


-6- 


REPORT  NO.  NADC-79240-60 


VARIABLE 

INITIP 

DCCT 

00 

PCINC 

00 

PICHR 

0000 

PSUM1-2 

0000 

PSUM1 

0000 

PSUM2-2 

0000 

PSUM2 

0000 

QPOS 

0CC0H 

QNEG 

F340H 

RLINC 

00 

ROLLR 

0000 

RSUM1-2 

0000 

RSUM1 

0000 

RSUM2-2 

0000 

RSUM2 

0000 

SCPTR 

3800H 

SEQINDX 

00 

HAIPTR 

3CB0H 

TOGGL 

00 

VSPTR 

4AE0H 

YAINC 

00 

YAWR 

0000 

YSUM1-2 

0000 

YSUM1 

0000 

YSUM2-2 

0000 

YSUM2 

0000 

Figure  2.3  Initial  Values  of  Program  Variables 
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STEERABLE  SEAT  EJECTION  TEST  OF  2/15/78,  ZERO  TIME  IS  20:16:22.936 

R  BODY  RATE  -  CHANNEL  53 


REPORT  NO.  NADC-79240-60 


TIME  IN  SECONDS 


STEERABLE  SEAT  EJECTION  TEST  OF  2/15/78,  ZERO  TIME  IS  20:16:22.936 

P  BODY  RATE  -  CHANNEL  51 


REPORT  NO.  NADC-79240-60 


Figure  2.6  P  Body  Rate  Graph  -  90  Roll  Test 


VERTICAL  SEEKING  SEAT  FIRED  6/14/78,  ZERO  TIME  IS  18:21:45.5 

.R  BODY  RATE  -  CHANNEL  53 
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33S/S33&03Q 
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E- 


Demonstration  Program  Fiiiie  .5  2.05 

Correspond i n<j  VS  Time  (MS)  0  1500 


VERTICAL  SEEKING  SEAT  FIRED  6/14/78,  ZERO  TIME  IS  18:21:45.518 

Q  BODY  RATE  -  CHANNEL  52 
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Figure  2.0  Q  Body  Rate  Graph  -  180°  Roll  Test 


VERTICAL  SEEKING  SEAT  FIRED  6/14/78.  ZERO  TIME  IS  18:21:45.518 

P  BODY  RATE  -  CHANNEL  51 


REPORT  NO.  NADC-79240-60 


REPORT  NO.  NADC- 79240-60 


Each  graph  was  divided  into  60  equal  time  intervals  to  provide  interpolat¬ 
ing  points  at  t=25,  50,  75,..., 1500,  defining  r^,  and  p^  at  i  =  20,  40, 
60,  80...,  1200.  For  the  interpolation,  the  values  rQ,  and  pQ  (at  t=0) 
are  defined  to  be  0.  Table  2.1  and  Table  2.2  shew  the  interpolating  points 
used  for  the  90°  roll  test  and  the  180°  roll  test  respectively. 

The  linear  interpolation  formula  is  then  executed  60  times  for  the  r,  q, 
and  p  interpolating  points,  generating  20  points  each  time  to  produce  the 
required  3600  pieces  of  rate  data  (1200  each  for  yaw,  pitch  and  roll) . 
Figure  2.10  shows  an  example  using  the  r  interpolating  points;  the  process 
is  the  same  for  p  and  q  data. 

The  formula  itself  is  very  straightforward  but  its  implementation  was 
complicated  by  the  fact  that  the  INTEL  8085  microprocessor  provides  no 
multiplication  or  division  capability.  To  keep  the  linear  interpolation 
code  as  simple  as  possible,  a  MULTIPLY  subroutine  and  a  DIVIDE  subroutine 
'were  written.  The  interpolation  algorithm  then  only  sets  up  the  numbers 
to  be  multiplied  (or  divided)  and  passes  then  as  parameters  to  the  appro¬ 
priate  subroutine;  the  product  (or  quotient)  is  calculated  and  returned  to 
the  CALLing  routine. 

The  division  algorithm  used  in  the  program  simply  performs  repeated  sub¬ 
routines  until  the  remainder  is  less  than  the  divisor.  The  quotient  is 
then  rounded  to  the  nearest  integer  (no  greater  accuracy  is  required)  as 
follows : 


if  the  remainder  _>  1/2  divisior,  q  =  q  +  1 
if  the  remainder  <  1/2  divisior,  q  =  q 

The  multiplication  algorithm  used  is  far  more  complicated.  A  detailed 
description  is  given  in  Appendix  b. 

2.1.8  INZDRFTM:  Initialize  Time  of  Parachute  Disreefing/Seat/Occupant 

Separation 

The  time  of  parachute  disreefing  and  seat/occupant  separation  depends  upon 
the  altitude  and  speed  of  the  seat/occupant  system  at  ejection.  These  are 
input  by  the  user  as  follows: 

INZDRFTM  displays  the  message  shown  in  Figure  2.11(a) ,  then  waits  for  the 
•user  to  respond.  The  program  checks  that  the  value  input  is  valid  and 
converts  it  from  a  series  of  ASCII  characters  to  a  hexadecimal  value, 
which  is  stored  in  memory.  INZDRFTM  then  displays  the  message  shown,  in 
Figure  2.11(b).  Again,  upon  receiving  a  valid  response,  the  program 
performs  the  same  conversion  described  above  and  stores  the  value  in  mem¬ 
ory.  Using  these  values,  the  program  determines  the  time  of  parachute 
disreefing/ seat 'occupant  separation  according  to  the  chart  in  Figure  2.12, 
as  defined  by  NADC  personnel. 
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REPORT  NO.  NADC-79240-60 


INTERPOLATING  POINTS  FOR  90°  ROLL  TEST 


R(i)  '  j 

Q(i) 

P(i) 

1 

Deq/Sec 

Hex  Equiv 

Dea/Sec 

Hex  Equiv 

Deq/Sec 

1 

Hex  E'iuiv  1 

0 

! 

0 

0000 

0 

0000 

0 

0000 

20 

9 

0024 

2 

0008 

-14 

FFC7 

40 

4 

0010 

-5 

FFEC 

-25 

FF9A 

60 

-2 

FFF8 

-14 

FFC7 

-17 

FFEB 

80 

14 

0039 

-15 

FFC3 

51 

00D1 

100 

36 

0093 

4 

0010 

131 

0218 

120 

46 

00BC 

8 

0020 

186 

02F9 

140 

57 

00E9 

-3 

FFEO 

209 

0357 

160 

70 

011E 

-18 

FFB7 

226 

039D 

180 

73 

012A 

-18 

FFB7 

246 

03EF 

200 

78 

013F 

-30 

FF86 

255 

0414 

220 

81 

014B 

-44 

FF4C 

254 

0410 

240 

32 

014F 

-53 

FF28 

242 

03DE 

260 

79 

0143 

-54 

FF23 

230 

03AD 

280 

78 

013F 

-56 

FF1B 

210 

035C 

300 

74 

012E 

-58 

FF13 

183 

02ED 

320 

73 

012A 

-58 

FF13 

166 

02A7 

340 

69 

011A 

-55 

FF1F 

153 

0272 

360 

67 

0112 

-52 

FF2C 

132 

021C 

380 

60 

00F5 

-50 

FF34 

109 

016E 

400 

60 

00F5 

-49 

FF38 

103 

0LA5 

420 

56 

00E5 

-40 

FF5D 

96 

0189 

440 

50 

oocc 

-34 

FF75 

66 

010E 

460 

44 

00B4 

-32 

FF7D 

50 

OOCC 

480 

46 

OOBC 

-27 

FF92 

68 

0116 

500 

40 

00  A3 

-22 

FFA6 

41 

00A7 

520 

32 

0083 

-23 

FFA2 

9 

0024 

540 

38 

009B 

-18 

FFB7 

62 

OOFD 

560 

42 

OOAB 

-11 

FFD3 

40 

00A3 

580 

25 

0066 

-12 

FFCF 

-25 

FF9A 

600 

22 

005A 

-19 

FFB3 

-9 

FFDC 

620 

37 

0097 

-8 

FFEO 

62 

OOFD 

640 

32 

0083 

-1 

FFFC 

26 

006A 

660 

13 

0035 

-7 

FFE4 

-52 

FFCC 

680 

22 

005A 

j  -10 

FFD8 

o 

j  0000 

700 

40 

00  A3 

-4 

FFFO 

82 

014F 

720 

30 

007A 

-2 

FFF8 

30 

007A 

740 

12 

0031 

-5 

|  FFEC 

-44 

FF4C 

760 

22 

005A 

-8 

FFEO 

4 

780 

36 

0093 

-2 

FFF8 

68 

|  0116 

800 

27 

006E 

-1 

FFFC 

21 

320 

11 

00  2D 

-6 

FFE8 

-35 

FF71 

840 

17 

0045 

I  -11 

FFD3 

3 

360 

23 

0072 

-7 

j  FFE4 

47 

m 

880 

21 

0055 

-6 

j  FFE8 

11 

900 

11 

00 2D 

-9 

FFDC 

-19 

1 

[ 

1  FFB3 

j 

' 

TABLE  2.1 
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REPORT  NO.  NADC- 79240-60 


INTERPOLATING  POINTS  FOP.  90°  ROLL  TEST 


R(i)  '!  Q(i)  P (i) 


i 

Deg/Soc 

Hex  Equiv 

Ceg/Sec 

Hex  Equiv 

Deg/Soc 

Hex  Er; 

920 

18  | 

0049 

J 

-12 

FFCF 

-2 

FFF8 

940 

24 

0062 

-11 

FFD3 

14 

0039 

960 

24 

0062 

-!6  ! 

FFBF 

15 

00  3D 

980 

21  | 

0055 

-21  ! 

FFAB 

4 

0010 

1000 

21 

0055 

-27 

FF92 

3 

OOOC 

1020 

20 

0051 

-32 

FF7D 

5 

0014 

1040 

24 

0062 

-33 

FF65 

10 

0028 

1060 

25 

0066 

-37 

EE69 

22 

005A 

1080 

21 

0055 

-33 

FF79 

18 

0049 

1100 

23 

005E 

-43 

FF50 

11 

002D 

1120 

27 

006E 

-54 

FF23 

17 

0045 

1140 

28 

0072 

-72 

FEDA 

18 

0049 

1160 

30 

00  7A 

-89 

FE94 

20 

0051 

1180 

30 

00  7A 

-103 

FE5B 

22 

005A 

1200 

32 

0083 

-118 

FE1D 

24 

0062 

! 


TABLE  2.1  (Continued) 
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REPORT  NO.  NADC- 79240-60 
JITIERPOIATING  POINTS  FOR  180°  ROLL  TEST 


i 

R(i) 

Deg/Sec  Hex  Equiv 

Q(i) 

Deg/Sec  Hex  Equiv 

P(i) 

Deg/Sec  Hex  Equiv 

0 

0 

0000 

0 

0000 

0 

0000 

20 

-7 

FFE4 

4 

0010 

2 

0008 

40 

-7 

FFE4 

8 

0020 

30 

007A 

60 

12 

0031 

11 

002D 

91 

0174 

80 

32 

0083 

15 

00  3D 

153 

0272 

100 

52 

00D4 

18 

0049 

217 

0378 

120 

72 

0126 

9 

0024 

298 

04C8 

140 

92 

0178 

-2 

FFF8 

364 

05D2 

[  160 

112 

01CA 

-12 

FFCF 

417 

06AB 

180 

108 

01BA 

-22 

FFA6 

378 

060B 

200 

101 

019D 

-33 

FF79 

338 

0567 

220 

100 

0199 

-44 

FF4C 

342 

0578 

240 

110 

01C2 

-56 

FF1B 

355 

05AD 

260 

108 

01BA 

-66 

FEF2 

318 

0515 

280 

100 

0199 

-81 

FEB5 

281 

04  7E 

300 

109 

013E 

-97 

FE73 

309 

04F1 

320 

132 

021C 

-108 

FE46 

306 

04E4 

340 

117 

01DE 

-115 

FE2A 

257 

041C 

360 

112 

01CA 

-126 

FDFC 

236 

03C2 

380 

123 

01F7 

-135 

FDD8 

259 

0424 

400 

1 22 

01F3 

-132 

FDE3 

215 

0370 

420 

103 

01A5 

-1 30 

FDEC 

152 

026E 

440 

99 

0195 

-130 

FDEC 

138 

0234 

460 

116 

01DA 

-118 

FE1D 

174 

02C8 

480 

110 

01C2 

-107 

FE4F 

112 

01CA 

500 

87 

0164 

-96 

FE77 

40 

00  A3 

520 

94 

0180 

-96 

FE77 

78 

01 3F 

540 

114 

01D2 

-84 

FEA9 

114 

01D2 

560 

100 

0199 

-69 

FEE6 

41 

00A7 

580 

78 

01 3F 

-59 

FFOF 

-15 

FFC3 

1  600 

87 

0164 

-60 

FFOB 

30 

00  7A 

620 

110 

01C2 

i  -52 

FF2C 

71 

0122 

640 

100 

0199 

I  -39 

FF61 

12 

002D 

660 

85 

015B 

!  -31 

FF82 

-44 

FF4C 

680 

104 

01A9 

-31 

FF82 

1 

0004 

700 

121 

01EF 

-28 

FF8E 

42 

OOAB 

720 

no 

01C2 

-22 

FFA2 

-6 

FFE8 

740 

97  ' 

018D 

-22 

FFA2 

-46 

FF44 

760 

111 

01C6 

-22 

FFA2 

-5 

FFEC 

730 

125 

01FF 

-22 

FFA2 

27 

006E 

800 

122 

01F3 

-19 

FFB3 

5 

0014 

820 

108 

01BA 

|  -18 

FFB7 

-22 

FFA6 

840 

105 

OlAD 

-18 

FFB7 

-18 

FFB7 

860 

111 

01C6 

-18 

FFB7 

-4 

FFFO 

880 

109 

01BE 

-16 

FFBF 

-2 

FFF8 

900 

106 

01B1 

1  “15 

! 

j 

FFC3 

1 

-6 

FFE8 

TABLE  2.2 
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REPORT  NO.  NADC-79240-60 

> 

|  INTERPOLATING  POINTS  FOR  180°  ROLL  TEST 


Hex  Equiv 


FFBB 

FFAB 

FF9A 

FF8A 

FF75 

FF61 

FF48 

FF28 

FF13 

FEFF 

FEEA 

FEE2 

FED6 

FECD 

FEC5 


TABLE  2.2  (Continued) 
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The  Li near  Interpolation  Formula  is 

f (xi)  =  (f0X]-f jXq)  +  ( (f i-fo)  <xi> ) 


(xi-Xq) 


where  fQ, 

j_  are 

defined 

at  each  of 

the  60  passes  as  follows 

Pass 

£o 

£l 

^1 

Xf  =  i 

Points  Generated 

1 

ro 

r20 

0 

20 

1-20 

rl  ~  r20 

2 

r20 

r40 

20 

40 

21  -  40 

r21  ~  r40 

3 

C 

• 

r40 

r60 

40 

60 

41  -  60 

r40  -  r60 

• 

0 

c 

60 

r1180 

r1200 

1180 

1200 

1181  -  1200 

• 

r1181  “  r1200 

Figure  2.10  Linear  Interpolation 
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SPEED  AT  EJECTION  (KEAS) 


Figure  2.12 


Parachute  Deployment  Chart 
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2.1.9  INZDEMO:  Initialize  Demonstration  Display 

The  last  function  performed  in  the  initialization  process  is  to  display  on 
the  CRT  a  list  of  all  of  the  ejection  functions  to  be  executed,  along  with 
instructions  on  how  to  begin  the  demonstration .  (See  Figure  2.13.)  At 
this  point,  the  program  waits  for  the  'ejection  signed.1.  When  this  is 
received,  the  system  timer  Tl  is  programmed  to  generate  an  interrupt  every  25 
ms,  the  bottom  line  on  the  CRT  is  deleted  and  the  cursor  positioned  at  row 
2  column  40.  At  this  point,  the  ejection  sequence  begins. 

2.2  Ejection 

The  t/ro  major  functions  performed  by  the  microprocessor  to  control  the 
ejection  are  the  timing  and  sequencing  of  the  ejection  events  and  the 
output  of  carmands  which  will  effect  the  execution  of  each  function. 

Each  sequence  of  ejection  functions,  except  sequence  D  (see  Table  2.3) , 
is  executed  repeatedly  until  the  time  that  the  next  sequence  is  to  begin. 
After  each  execution  of  each  of  the  first  three  sequences,  a  driver  routine 
is  entered  which  performs  the  timing  and  sequencing  as  follows: 

For  the  first  .55  seconds  after  ejection,  the  microprocessor  receives  an 
interrupt  every  25  ms.  These  interrupts  are  counted  and  the  number  stored 
in  manory.  At  T=  .55  (where  T=  total  elapsed  time  since  ejection)  the 
number  of  25  ms  interrupts  is  stored  in  memory.  The  interrupt  counter  is 
cleared  and  used  to  keep  track  of  the  number  of  2.5  ms  interrupts  that 
Timer  Tl  will  now  generate  until  seat/occupant  separation.  Using  the 
value  in  the  interrupt  counter,  the  time  of  the  next  interrupt  (TNI)  is 
determined. 

If  T^i  <  .  3  seconds ,  the  driver  routine  prepares  so  that  the  subroutine 
enabling  the  execution  of  the  functions  in  sequence  A  (EJCTRTN: )  will  be 
indexed  when  the  next  interrupt  is  received. 

If  .3  seconds  ±  TNI  <.  .55  seconds,  the  driver  routine  prepares  so  that  the 
subroutine  enabling  the  execution  of  the  functions  in  sequence  B  (CTPLTRIN : ) 
will  be  indexed  when  the  next  interrupt  is  received. 

If  Tjjj  =  .55  seconds,  the  dri  .er  routine  programs  the  timer  Tl  to  generate 
an  interrupt  every  2.5  ms  after  the  next  (arc  last  25  ms)  interrupt  is 
received  and  sets  up  so  that  the  subroutine  enabling  the  execution  of  the 
functions  in  sequence  C  (RKTSEQ: )  will  be  indexed  upon  receiving  that 
interrupt.  Since  the  only  function  in  sequence  C  to  be  executed  at  this 
time  is  to  ignite  the  rocket,  (this  is  the  only  tine  this  function  is 
executed) ,  the  driver  routine  also  sets  a  flag,  indicating  this  to  RKTSEQ. 

If  .55  seconds  <_  TNI  <_  2,05  seconds,  RKTSEQ  is  indexed.  At  T=  2.05,  se¬ 
quence  C  is  executed  for  the  last  time  and  control  is  passed  immediately 
to  the  suroutine  controlling  sequence  D  (PARSEP:).  If  the  time  of  parachute 
disreefing /seat/occupant  separation  is  T=  2.05  seconds,  these  two  functions 
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uP  EJECTION  SEAT  FEASIBILITY  DEMO 

Emergency  02  Generation 
Inertial  Reel  Firing 
Neck  Bladder  Inflation 
Hip  Thruster  Firing 
Canopy  Removal 
Gyro  Spinup 
Seat  Release 
Catapult  Initiation 
Rocket  Initiation 
Rocket  Gimballing  Initiated 
PCEM  Fired 

Rocket  Gimballing  Completed 
Parachute  Disreefed 
Seat/Occupant  Separated 

*************  ************************  *** 


TO  BEGIN  DEMONSTRATION,  PRESS  'E' 


Figure  2.13 


Feasibility  Demonstration  Display 
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TIMING /SEQUENCING  OF  EJECTION  SEAT  FUNCTIONS 


Sequence 


Function 


Time  Initiated 


A  -  Ejection  Sequence 

1.  Elnergency  O2  Generation  T:0 

2.  Inertial  Reel  Firing 

3.  Neck  Blader  Inflation 

4.  Hip  Thruster  Firing 

5.  Canopy  Removal 

6 .  Gyro  Spin-Up 

B  -  Catapult  Sequence 

1.  Seat  Release  t  +  .3 

2.  Catapult  Initiation 


C  -  Rocket  Sequence 


1.  Rocket  Initiation  tg  +  .55 

2.  Rocket  Motor  Gimballing 

3.  PCE-l  Firing  tQ  +  1.85 


D  -  Descent  Sequence 

1.  Parachute  Disreefing  tg  +  2.05/tg  + 

2 .  Seat/Occupant  Separation 


.05 


Table  2.3  Timing/Sequencing  of  Ejection  Seat  Functions 


REPORT  NO.  NADC-79240-60 


are  executed  and  the  ejection  is  complete.  Otherwise,  as  each  2.5  ms 
interrupt  is  received  and  counted,  control  is  passed  directly  to  PARSEP 
which  waits  until  T=  5.05  seconds  to  execute  the  final  sequence  to  com¬ 
plete  the  ejection. 

To  effect  the  execution  of  each  of  the  ejection  functions  on  an  actual 
ejection  seat  system,  the  microprocessor  would  output  a  command  word  to 
a  specific  port.  This  port  would  interface  with  specially  designed  hard¬ 
ware  that  would  convert  the  digital  data  to  an  analog  signal  which  in 
turn  would  enable  the  desired  event.  This  process  is  simulated  in  the 
demonstration  program  (subroutine  SOJIB: )  as  follows : 

The  microprocessor  outputs  the  three  character  ASCII  sequence  OOOOIOOO2 
(backspace),  OOOOIOIO2  (line  feed),  OOIOIOIO2  (*)  to  the  CRT.  This 
causes  the  ' * '  character  to  be  displayed  next  to  the  function  being  ex¬ 
tracted  indicating  its  successful  completion . 
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3.  THE  VERTICAL  SEEKING  MANEUVER 

The  implementation  of  the  vertical  seeking  maneuver,  the  most  critical  of 
the  ejection  seat  functions  to  be  controlled  by  the  microprocessor,  is 
based  to  a  great  extent  on  the  work  done  previously  by  personnel  at  the 
Naval  Weapons  Center,  China  Lake,  CA.  The  following  discussion  describes 
the  vertical  seeking  seat  program  as  designed,  coded  and  tested  at  NWC, 
and  indicates  where  modifications  had  to  be  made  for  implementation  in 
the  demonstration  program. 

Simply  stated,  the  purpose  of  the  vertical  seeking  maneuver  is  to  insure 
that  the  seat/occupant  system  is  in  an  upright  position  and  traveling  in  a 
vertical  direction.  The  microprocessor  accomplishes  this  by  properly 
gimballing  the  rocket  motor  according  to  information  describing  the  initial 
orientation  of  the  seat/ occupant  system  and  by  continuously  monitoring  the  an¬ 
gular  rates  of  the  system  about  all  three  axes.  For  testing  purposes,  the 
initial  orientation  of  the  seat/occupant  system  is  predetermined  and  essentially 
hardwired  in  the  memory  of  the  microprocessor  by  storing  the  direction 
cosine  of  the  angle  of  each  of  the  axes  of  the  seat/occupant  coordinate  system 
to  the  vertical.  These  are  updated  continuously  throughout  the  maneuver 
using  the  rotational  rates,  and  the  direction  cosines  are  then  used  to 
calculate  the  rocket  gimballing  commands.  Gimballing  the  rocket  modifies 
the  orientation  of  the  system  and  the  rotational  rates,  which  in  turn 
cause  the  microprocessor  bo  modify  the  direction  cosines  and,  ultimately, 
the  rocket  gimballing.  3y  this  circular  process,  the  system  is  stabilized 
as  it  approaches  the  desired  orientation. 

3.1  The  Vertical  Seeking  Algorithm 

There  are  five  basic  steps  comprising  the  vertical  seeking  algorithm: 

1.  Input  Rate  Data 

2.  Integrate  Rate  Data 

3.  Update  Direction  Cosines 

4.  Calculate  Rocket  Gimballing  Commands 

5.  Output  Rocket  Gimballing  Commands 

3.1.1  Input  Rate  Data 

Attached  to  the  ejection  seat  are  gyroscopes  which  sense  the  rate  of  ro¬ 
tation  of  the  seat/ occupant  around  the  yaw,  pitch  and  roll  axes  of  the  seat/ 
occupant  coordinate  system.  A  voltage  level  proportional  to  the  rotational  rate 
is  sent  frctn  the  gyroscope  to  an  A/D  converter  which  outputs  complementary 
twos  complement  (CTC)  digital  data  to  the  microprocessor.  This  data  is 
then  converted  to  obtain  the  twos  complement  form  used  in  the  program. 

Three  examples  of  this  conversion  process  for  a  typical  system  are  shown 
in  Tabla  3.1.  As  presently  implemented,  rate  data  is  sampled  every  1.25 
ms;  every  2.5  ms  an  interrupt  is  generated  to  the  microprocessor,  at 
which  time  the  previous  two  sanples  (which  have  been  buffered)  are  read 
ard  processed.  Thus,  every  2.5  ms,  six  words  of  rate  data  are  input  by  the 
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Assume  the  following  gyro  characteristics: 

range:  ±500  deg/ sec  (8.72  rad/sec) 

full  scale  deflection:  ±10v 


Rate  —  Gyro -* Analog  Data-*A/TD-*  CTC  Data-* MP-* Twos  Comp 


500°/ sec  (8.72  rad/sec ) 

lOv 

F800H 

07FFH 

0°/sec(0  rad/ sec) 

Ov 

FFFFH 

OOOOH 

-500°/sec (-8.72  rad/sec) 

-lOv 

07FEH 

F801H 

Table  3.1  .Angular  Pate  -  Digital  Data  Conversion 
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niicroproce s sor  -  2  each  for  yaw  rate  (r) ,  pitch  rate  (q)  and  roll  rate 

(p) . 

3.1.2  Integrate  Rate  Data 

Integration  of  the  rate  data  with  respect  to  time  allows  the  microprocessor 
to  keep  track  of  the  rotation  of  the  seat/occupant  system  about  each  of  the  axes. 
(Note  that  three  separate  integrations  are  required.)  The  integration  scheme 
is  based  on  the  following  formula  for  the  trapezoidal  rule: 

A=H  A  h  (y1+2y2+2y3+ . +yn )  ( 1 ) 

The  above  was  modified  slightly  to  give  the  following  formula: 

2A/A  h=  (0+y  ^ + (0+y2 )  +  (y1+y3) + (y2+Y4 ) + (y3+y5 ) + (y4+y6  ) + —  (2) 

where  y^  corresponds  to  r-,  q.  ,  or  p^  for  a  particular  time  t  given  by: 

i  =  1,  1200 

t  (number  of  ms  after  beginning  of  maneuver)  =1.25  (i) 

Since  data  is  sampled  approximately  every  1.25  ms,  Ah  =  1.25. 

To  perform  the  next  step  of  the  algorithm  (update  direction  cosines)  ,  the 
program  does  not  actually  need  to  know  the  amount  of  rotation  about  each 
of  the  seat/occupant  axes  but  only  when  the  rotation  has  exceeded  a  predefined 
angle.  Thus  the  A  in  eq.  (2)  is  not  calculated  in  the  program  but  has  been 
predetermined  to  insure  that  the  left  side  of  the  equation  becomes  a  con¬ 
stant  against  which  the  right  side  is  tested.  A  is  defined  as  the  max¬ 
imum  angle  that  could  be  generated  in  one  sampling  period  if  rotating  at 
the  maximum  rate  that  can  be  sensed  by  the  gyroscope.  In  this  case,  the 
maximum  rate  is.  8.72  rad/sec  and  the  sampling  period  is  1.25  ms;  therefore 
A  =  .0109  radians.  Given  the  scaling  used  in  the  program,  the  left  side 
of  the  equation  is  determined  as  follows: 

A  =  .0109  radians  =  07FF3g  =  2047^ 


2A  _  2(2047)  _  4094 

Ah  1.25  1.25 


3275  =  CC016 


If  however,  the  seat/occupant  system  is  rotating  at  the  maximum  rate  in  a  neg¬ 
ative  direction  (-3.72  rad/ sec) : 


A  =  -.0109  rad  such  that 


2A 

Ah 


-^le  =  F34B16 
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Thus,  the  following  three  equations  define  the  three  integrations  per¬ 
formed  in  the  program: 

+  CCO  =  (0+r1)  +  (0+r2)  +  (r-L+r3)  +  (r2+r4)  +  (r3+r5)  +  {r4+r6)+. . .  (3) 

+  OC0  =  (0+q1)  +  (0+q2)  +  (q1+q3)  +  (q2+q4)  +  (q3+q5)  +  (q4+q6)+. . .  (4) 

+  CCO  =  (0+p1)+(0+p2)  +  (p1-rp3)  +  (p2+p4)  +  (p3+p5)  +  (p4+p6)  +  . . .  (5) 


When  the  system  has  rotated  at  least  .0109  radians  in  either  a  positive 
or  negative  direction  around  any  of  the  3  axes  the  appropriate  direction 
cosines  are  updated  and  the  corresponding  test  value  (+  CCO)  is  subtracted 
from  the  sum;  the  integration  then  continues  as  before. 


3.1.3 


its  Direction  Cosines 


Implementation  of  this  part  of  the  vertical  seeking  algorithm  is  based  on 
the  Crowder  Hession  Direction  Cosine  Updating  Algorithm  as  follows: 


C31,a  "  C31,K 


c32,a  = 

C32,K 

-A8Z 

C31,K 

C33,a  = 

C33,K 

+A0y 

C31,K 

C31,b  = 

C31,a 

+A0Z 

C32,a 

C32,b  = 

C32,a 

C33,b  = 

C33,a 

CD 

X 

C32,a 

C31,K+1 

=  C31, 

,b  'Ae 

y  c33 

C32,K+1 

=  C32, 

,b+Ae 

1  C-n 
x  3a 

C33,K+1 

=  C33, 

rb 

where: 


(~31,(~32  <~33  2:76  the  three  direction  cosines  D  D  D  shown  in 

1  jX /  J4  ^  J J / 

Figure  2.2. 


K,K+1  designate  points  in  time; 

a,b  are  values  for  intermediate  calculations  used  in  arriving  at 
the  next  point  in  time,  and 


AO  ,  and  AO  are  the  angular  displacements  of  the  gyros. 

y  ^ 
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The  displacements  are  represented  by  a  quanta  pulse  weight  A0  which  has 
the  general  font  2~"~l  ,  where  n  is  determined  bv  the  santle  tine  and  the 
maximum.  value  of  the  angular  rates. 

To  maximize  the  resolution  of  this  quantity  the  site  of  the  quantum  weight 
is  recuired  to  be  as  small  as  possible  but  must  be  larger  than  the  max- 
Ltn  rotation  over  one  sample  period.  Given  a  maximum  angular  velocity 
of  8.72  radians/sec  and  a  sample  time  of  1.25  x  10-^  seconds,  the  smallest 
quantum  size  that  would  be  larger  than  tne  mvaomur.  angular  displacement  of 
the  gyros  (.0109  rad.)  is  2~°  radians  (=  .0156  rad.).  The  quantum  size 
used  in  the  program  is  2-7 (=  .0078  rad.). 

Every  2.5  ms  (with  each  interrupt)  this  algorithm  is  processed  twice,  once 
for  each  of  the  two  samples  of  input  data.  In  processing  the  algorithm. 


A©..,  A  ©  ,  A  © _  are  determined  by  the  integration  of 

A  ^  6 

around  the  x,  y  and  z  axes  respectively,  as  follows: 


he  rotational  rates 


For  each  axis. 


if  the  system  has  rotated  less  than  .0109  radians  in  either 


a  oosicive  or  negative 


Ion,  the  corresponding  Ay  _.=Q; 


if  the  system  has  rotated  at  least  .0109  radians  in  a  positive  di¬ 
rection,  the  corresponding  A6j=2-7; 

if  the  system  has  rotated  at  least  .0109  radians  in  a  negative  di¬ 
rection,  the  corresponding  A© ^=-2~7. 

In  the  program.,  there  are  three  bytes  of  memory  used  as  flag  words  (FUAC, 
?cz:c,  YAI I'C)  ,  each  of  which  is  set  to  one  of  three  values  (00,  01  or  FF) 
•when  the  rate  data  is  Integrated.  The  program  then  uses  the  value  of  the 
flag  to  determine  which  of  the  above  three  values  (00,  2~ j ,  -2~ ' )  will  be 
used  (see  Figure  3.1). 


2.1.4  Generate  Rocket  Grmb-alling  Commands 

Two  commands ,  a  roil  command  and  a  pitch  command,  are  output  to  gimbal 
ate  rochet  and  .are  calculated  very  straightforwardly  as  follows: 

San ce,  by  their  definition,  the  direction  cosines  are  sinusoidal,  a  con¬ 
trol  law  cased  on  them,  would  not  be  strictly  linear.  There  are  two 
distinct  regions  of  seat  attitude  where  different  control  aspects  are  to 
tame  place.  First,  in  an  inverted  attitude  (-90°  <  133  <  90°)  a  large 
command  is  needed  to  bring  tne  seat  upright.  In  this  region,  D33  is 
always  positive,  whereas  D3L  and  D32  will  vary  from  zero  when  133  =  2° 
to  -  1  when  U33  =  90°.  Second,  an  the  upright  attitude  (  90°  <  133  <  270°) , 
132  13  always  negative  while  D21  and  D22  again  '.mum.-  between  +  1.  The  con¬ 
trol  law  is  shewn  in  Figure  3.2. 
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RLINC 


PCINC 


YAINC 


System  has  not  rotated  at  least  .0109  radians  in 
either  direction  around  the  x-axis. 

System  has  rotated  at  least  .0109  radians  in  a 
positive  direction  around  the  x-axis. 

System  has  rotated  at  least  .0109  radians  in  a 
negative  direction  around  the  x-axis. 


System  has  not  rotated  at  least  .0109  radians  in  either 
direction  around  the  y  axis. 

System  has  rotated  at  least  .0109  radians  in  a  positive 
direction  around  the  y-axis. 

System  has  rotated  at  least  .0109  radians  in  a  negative 
direction  around  the  y-axis. 


System  has  not  rotated  at  least  .0109  radians  in 
either  direction  around  the  z-axis. 

System  has  rotated  at  least  .0109  radians  in  a  positive 
direction  around  the  z-axis. 

System  has  rotated  at  least  .0109  radians  in  a  negative 
direction  around  the  z-axis. 


Figure  3.1  Quantum  Control  Chart 
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D33>  0 


D33  <  0 


Roll  Conmand  • 
Pitch  Cortmand 


Roll  Ccrrmand  =  sign  D32  (2-  | D32 |  ) 
Pitch  Carmand  =  D31 


Figure  3.2  Control  Law 
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3.1.5  Output  Rocket  Gimballing  Carmands 

The  seat-rocket  motor  arrangement  as  implemented  at  NWC  is  shown  in  Figure 
3.3.  It  can  be  seen  that  the  rocket  motor  can  be  gimballed  +  16°  in  two 
directions. 

The  two  corrmands  are  output  to  a  D/A  converter,  which  in  turn  outputs  a 
signal  causing  the  rocket  to  move  a  certain  angle.  That  angle  is  measured 
not  from  the  current  position  of  the  rocket  but  fran  the  neutral  position. 

3.2  Surrmary 

Viewing  the  vertical  seeking  maneuver  as  a  closed  loop  process  as  discussed 
in  Section  3,  it  can  be  seen  that  the  primary  problem  in  implementing  it  in 
the  feasibility  demonstration  program  is  that,  although  it  is  possible  to 
simulate  the  input  of  the  rate  data,  perform  the  required  calculations  to 
generate  the  rocket  motor  gimballing  carmands  and  display  the  outcome  of 
these  corrmands,  the  feedback  effect  of  the  rocket  gimballing  on  the  orienta¬ 
tion  of  the  seat/occupant  system  and  on  subsequent  rate  data  is  missing.  It 
is  not  possible  then  to  determine  on  the  software  development  system  whether 
the  ccnmands  generated  would  produce  the  desired  trajectory.  However,  using 
the  rate  data  recorded  at  NVC,  China  Lake,  it  was  possible  to  verify  to  a 
reasonable  extent,  the  accuracy  of  the  vertical  seeking  maneuver  by  inspect¬ 
ing  the  direction  cosines  of  the  final  orientation.  These  are  shown  for  both 
the  90°  roll  test  and  the  180°  roll  test  in  Figure  3.4.  As  stated  in  Section 
2.1.7,  same  inaccuracy  is  expected  due  to  the  way  in  which  the  rate  data  was 
generated. 
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90°  Roll  Test  Final  Orientation 


D31  =  -.184  -  a31  =  100.6° 

D32  =  .004  a32  =  89.77° 

D33  =  -.969  -*■  a33  =  165.69° 


180°  Roll  Test  Final  Orientation 


D31  = 

.164 

■*  a31  = 

80.56° 

D32  = 

.089 

-»•  ct32  = 

84.89° 

D33  = 

-.970 

-  a33  =  -165.93° 

Figure  3.4 


Results 
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4.1  PROGRAM  LISTING 


REPORT  NO.  NADC-79240-60 


VRTSK.DEM  9/29/78 

OIOO  ORG  1  00  ri 

0  i  C'J  GO 

NOP 

0101  F3 

D I 

0102  31  Hr 3 7 

LX  I  S.P ,  NEED 30 

G 1 05  CD260I 

CALL  INZRST75 

0108  CD3201 

CALL  INZTMRS 

0103  C 03 401 

CALL  INZDSP 

OIOE  CD3CCB 

CALL  CHOICE 

0111  CC6C0 1 

CALL  INZDSK 

0114  CD9C01 

CALL  INZVRBLS 

0117  CDFE01 

CALL  INZRDATA 

Oil  A  CD9D05 

CALL  I NZDRFTM 

01  ID  CD5401 

CALL  INZDSP 

0120  CD2F07 

CALL  INZDEMO 

0123  C34 60 7 

JMP  EJKEY 

INZRST75* 

SET  UP  RST  7.5 

(CANNOT  LOAD  PRGM  INTO  LOC  30 

0126  213C00 

LX  I  H , 3CH 

0129  3603 

MV  I  M.0C3H 

0123  215C07 

LX  I  H, 5EQSRT 

0 ! 2E  223 DOO 

SHLD  3DH 

0131  C9 

RET 

INZTMRS* 

G i 32  3340 

MV I  A, 4 OH 

0124  D3F3 

OUT  0F3H 

0136  2103D1 

LX I  H.0D103H  » MODE  SET 

0 39  3630 

MV I  M,  30H  .TO, MO 

O’ 28  3670 

MV I  M ,  7  OH  ;T1 , MO 

3 i 3D  3630 

MV I  M, OBOH  5T2.MO 

01 2r  23 

DCX  H  ;T2  LOC 

0140  3601 

MV  I  M, 1  ;l/2  US 

0142  3600 

MV  I  M.O 

Cl  44  23 

DCX  H  5  T 1  LOC 

0! 45  3601 

MV  I  M, 1  ;l/2  US 

0147  3600 

MV I  M, 0 

014?  23 

DCX  H  .TO  LOC 

0 1  360  1 

MV  I  M.l  ;i/2  US 

0 1 4 C  3600 

MV I  M.O 

CLEAR  UNWANTED  INTERRUPTS 

014t;  35 1  3 

MV I  A.1BH 

0150  CDD307 

CALL  SIM 

0 i 33  CN 

RET 

INZDSP: 

.CLEAR  SCREEN,  USE  40  CLMNS. , 

; USE  UPPER  AND  LOWER  CAGE 

0 1 84  CD 00 -8 

CALL  0F8Q0H 

0187  3 El  3 

MV  I  A ,  1  BH 

0184  C DO 3rd 

CAL!.  OF 803H  *40  COLMNS 

0160  3543 

MV  I  A.43M 

0135  GD03F8 

CALL  OF  SO  311 

0,4 1  8E1H 

MV  I  A.ILl.l 

■Dir?  CD03I  J 

CALL  0F803H 

'•  i  C'o  S  —  r>  •  > 

MV  1  A.55H 
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VRTSK.DfcM  9/29/78 

0168  CQQ3F3  CALL  0F803H 

0163  C9  RET 

INZOSK* 

INITIALIZE  FILE  CONTROL  BLOCKS 
; AND  OPEN  ALL  FILES 


0I6C 

210042 

f 

LX  I  H, FCBRDI 

0I6F 

3600 

.MV  I  M ,  0 

017! 

010CC0 

LX I  B, 12 

C!  74 

1  E03 

MV  I  E, 3 

0176 

1616 

LPM: 

MV I  D, 22 

0173 

09 

IPS: 

DAD  B 

0179 

3600 

MV  I  M 1 0 

0173 

23 

I  NX  H 

017C 

15 

DCR  D 

01  7D 

C27901 

JNZ  LPS 

0160 

1616 

MV  I  D , 22 

0182 

2B 

DCX  H 

0183 

ID 

DCR  E 

0184 

C27801 

JNZ  LPM 

0187 

OEOF 

MV  I  C , OPEN 

0189 

1 I 0042 

LXI  D, FCBRDI 

018C 

000500 

CALL  BDOS 

0  1  8i* 

.112142 

LXI  D, FCBDRFTM 

0192 

CCG500 

CALL  BDOS 

0195 

1  14242 

LXI  D.FCBDEMO 

0198 

CD0500 

CALL  BDOS 

0198 

C9 

RET 

INZVR3LS: 

019C 

AF 

XRA  A 

019D 

21  CO 00 

LXI  H,0 

01  AO 

32F841 

STA  DCCT 

01  A3 

32F  44 1 

STA  SEQINDX 

01  A6 

22EA41 

SHLD  YAWR 

01  A9 

22EC41 

SHLD  PICHR 

01  AC 

22EE41 

SHLD  ROLLR 

01  AF 

22C44 1 

SHLD  YSUM1-2 

0182 

22C04 1 

SHLD  YSUM2-2 

0  1  85 

22C84I 

SHLD  PSUM1-2 

01B8 

22D44 1 

SHLD  PSUM2-2 

01  33 

22CC41 

SHLD  RSUM1-2 

GIBE 

22D341 

SHLD  RSUM2-2 

01C1 

22C641 

SHLD  YSUM1 

01C4 

22D241 

SHLD  YSUM2 

01C7 

22CA4 1 

SHLD  PSLfM  1 

0  1  CA 

22D041 

SHLD  PSUM2 

01  CD 

22CE4 1 

SHLD  RSUMI 

o  i  no 

22DA4  1 

SHLD  RSUM2 

0ID3 

32004  1 

STA  YAINC 

01  Do 

32UH4 1 

STA  PCINC 

0 1  09 

32CF4 1 

STA  KLINC 

Cl  DC 

32F54 I 

STA  ToOGL 

0  I  OF 

210038 

LXI  H, 3800H 

0 1  2.1 

22FA4I 

SHLD  SCPTH 

01  Ls 

2  i  B03C 

LXI  11,3030 M 
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KiPUKT  NU.  .'JAUC-/y^4U-*5U 


YRT5K. DEM  9/29/73 


oita 
0 1  EB 
Cl  EE 
OIF! 
01  F4 
01  F7 

o  i  fa 
Oi  FD 


22FC4 I 
2IE04A 
2  2  B  2  4  I 
21COOC 
22F04 I 
2 ! 40F3 
22F24 I 
C9 


01 FE  210036 
C20 i  22E237 
0204  0603 

0206  OEM 
0203  110042 
0203  C DO 500 


SHLD  TLMPTR 
LX  I  H, 4  AEOH 
SHLD  VSPI'R 
LX  I  H.OCCOH 
SHLD  OPOS 
LX  I  H,0F340H 
SHLD  ON EG 
RET 

I NZRDATA • 

READ  FILE  WITH  END  POINTS 
AND  INTERPOLATE  TO  GET 
1200  PIECES  OF  DATA  EACH  FOR 
YAW, PITCH  AND  ROLL  RATES 

LX  I  H , 3 6 OOH 
SHLD  MOVPTR 
MV  I  3,3 
SETUPIPS: 

MV  I  C,READ 
LX  I  D, FCBRDI 
CALL  BDOS 

MOVE  8 OH  BYTES  TO  I NT  PTS. STORAGE 


02 OE  2AE237 

LHLD  MOVPTR 

0211  113000 

LX  I  D , 8 OH 

MOVLOOP : 

02!  4  1A 

LDAX  D 

0215  .77 

MOV  M, A 

0216  13 

I  NX  D 

0217  23 

I  NX  H 

02! 3  AF 

XR A  A 

0219  BA 

CMP  D 

02! A  CA I 402 

JZ  MOVLOOP 

02  ID  22E237 

SHLD  MOVPTR 

0220  05 

DCR  B 

0221  C 20 60 2 

JNZ  SETUPIPS 

1 

SET  UP  TO  INTERPOLATE 

0224  210036 

LXI  H ,  3 EG Y I P 

0227  22EA37 

SHLD  STRTPT 

C22A  2IEC4A 

LXI  H.YRDATA 

0220  22ES37 

SHLD  STRLOC 

0230  CDS 202 

CALL  LINT 

SET  UP  TO  INTERPOLATE 

02  33  21  'A 36 

LXI  H,BECPIP 

0236  22 E A3 7 

SHLD  STRTPT 

0239  21E24A 

LXI  H, PHD AT A 

02 jC  22 E 33 7 

SHLD  STRLOC 

02  3  F  u  ■35207 

CALL  LINT 

SET  UP  TO  INTERPOLATE 

02--'>  211436 

LXI  H.UECJRIP 

-40- 
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j 

C3 

0245 

22EA37 

5HLD  STRXPT 

l 

0248 

2 1 E44 A 

LX  I  H, RRDAT A 

i 

O 

0243 

22E837 

SHLD  STHLOC 

i 

* 

02  4  E 

CD5202 

CALL  LINT 

* 

0251 

C9 

REX- 

» 

t 

•a 

LINT: 

< 

5 

;F(XI )=IF0X1-F!X0  +  (FI 

-FO )*X  I  I/C  X 1  -XO  I 

» 

0252 

2 1 0000 

LX I  H,0 

! 

1 

02  55 

39 

DAD  SP 

0256 

22  F  63  7 

SHLD  LISVSP 

-  -  - 

4 

0259 

31 F637 

LX I  SP .LI JUNK  - 

. - 

j 

025C 

0 1 0000 

LX  I  B, 0000 

i 

? 

02  5  F 

110100 

LX I  D, 1 

j 

1 

0262 

C5 

PUSH  B 

1 

C 

i 

0263 

D5 

PUSH  D 

h 

-> 

0264 

C5 

PUSH  B 

; 

0265 

2 AEA37 

LHLD  STRTPT 

1 

« 

0268 

F9 

SPHL 

> 

LILOOP: 

•: 

0269 

El 

POP  H  ;  FO 

026A 

22C137 

SHLD  ML TP 2 

; 

•' 

026D. 

22F837 

SHLD  FZERO 

;F()R  LATER 

0270 

2AF437 

LHLD  XZERO 

0273 

3E1  4 

MV I  A ,20 

> 

0275 

85 

ADD  L 

0276 

6F 

MOV  L, A  ?GET  Xl 

i 

0277 

1C 

MOV  A, H 

j 

r 

0278 

CECO 

AC  I  0 

02  7A 

67 

MOV  H, A 

0273 

22C737 

SHLD  MLTP1 

{FO  X  XI 

1 

J, 

027E 

210000 

LX I  H, 0 

0281 

39 

DAD  SP 

0282 

22E637 

SHLD  TMPSP 

1* 

jj 

t 

{SAVE  STACK  PTR  BEFORE 

CALL  MULT 

r' 

f! 

-j  ■ 

0285 

31CF37 

LX I  SP, SCRATCH 

». 

t. 

i. 

0288 

CD9403 

CALL  MULT 

A 

{PRODUCT  OF  MULT  =  FO  X 

XI 

i; 

C2SB 

2AC137 

LHLD  ANSL 

<r: 

C28E 

22FC37 

SHLD  F0X1L 

j' 

0291 

2AC337 

LHLD  ANS.M 

i  j 

0294 

22FE3  7 

SHLD  FOX  1 M 

f: 

0297 

2AE637 

LHLD  TMPSP 

* 

*1 

029A 

F9 

SPHL 

i 

0293 

El 

POP  H  {GET  FI 

0290 

33 

DCX  SP 

029D 

39 

DCX  SP  { =N XT  FO 

1 

029  E 

22C137 

SHLD  ML TP 2 

* 

02  A 1 

22 F A3 7 

SHLD  FONE 

02  A4 

2AF43 7 

LHLD  XZERO 

02A7 

220737 

SHLD  ML  TP  1 

< 

t 

{NEXT  XO  =  CURRENT  X'J  +  20 
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A 
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02  AA 

‘ 

1 1 1 400 

LXI  D, 20 

02  AD 

19 

DAD-D 

02AE 

22F437 

SHLD  XZERO 

02BI 

2  1  0  000 

LXI  H , 0 

4 

02B4 

39 

DAD  SP 

02R5 

22E637 

SHLD  TM PSP 

02B3 

3ICF37 

LXI  SP, SCRATCH 

4 

02  33 

CD9403 

CALL  MULT 

l 

| 

PRODUCT  FROM  MULT  =  Fl  X  X0 

NOW  COMPUTE  FOXi  -  F1X0 

i 

i 

02  BE 

2AFC37 

LHLD  F0XIL 

H 

02C1 

E3 

XCHG 

ji 

02C2 

2AFE37 

LHLD  FOXI M 

( 

02C5 

40 

MOV  C , L 

1 

C2C6 

44 

MOV  B,H 

1 

{ 

BODE  -  FOXI 

j 

02C7 

2  AC  1 3  7 

LHLD  ANSL 

t 

02CA 

ID 

MOV  A , L 

C2C3 

2F 

CM  A 

02CC 

C60I 

ADI  i 

02  CE 

Or 

MOV  L, A 

C2CF 

7  C 

MOV  A , H 

02  DO 

2F 

CM  A 

t 

C2Di 

CE00 

AC  I  0 

02  D3 

67 

MOV  H ,  A 

22CI  37 

SHLD  ANSL 

i 

02D7 

2 AC  337 

LHLD  AMSM 

02  DA 

ID 

MOV  A , L 

02D3 

2F 

CM  A 

i 

02DC 

o 

o 

ui 

o 

AC  I  0 

C2CE 

oF 

MOV  L , A 

C2DF 

7C 

MOV  A, H 

i 

02  EG 

2 1- 

CM  A 

C2EI 

CE00 

AC  I  0 

02E3 

67 

MOV  H, A 

* 

02  E  4 

22C337 

SHLD  AMSM 

( 

ANSM/L  =  -F1X0 

02E7 

2 AC  1 37 

LHLD  ANSL 

C  *5  Z  « 

-1  *-  “V 

19 

DAD  D 

* 

n  0  ~  _■* 

22EC37 

SHLD  ALS f 

Mcr 

2  AC 33 7 

LHLD  ANSM 

^  n  u  1 

D2FS02 

JNC  LICNI 

02  r  -i 

23 

I  NX  H 

LICNI  : 

w ir  j 

09 

DAD  B 

* 

'  :  - 

n  >  i- “)  */ 

s;  ill)  A.v.sr 

COMPUTE  FI  -  FO 

1 

02  Fa 

2AF337 

LHLD  FZERO  -42- 

1 
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PACI 


4 

\ 

4 

VRISK. DEM  9/29/73 

4 

1 

02FC 

7D 

MOV  A ,  L 

1 

• 

02  FD 

2F 

CMA 

S 

Cl 

02  FE 

4F 

MOV  C, A 

i 

% 

C2FF 

7C 

MOV  A ,  H 

« 

i 

• 

4 

0300 

2F 

CMA 

a 

0301 

47 

MOV  B, A 

1 

j 

0302 

03 

I NX  B 

4 

I 

0303 

2AFA37 

LHLD  FONE 

i 

i 

~4 

0306 

09 

DAD  B 

0307 

22E437 

SHLD  F1MF0 

i 

i 

i 

‘Vs 

I 

.  ISUBLP 

3 

« 

COMPUTE  (F1-F0)  X  XII) 

J 

i 

> 

030  A 

2AE437 

LHLD  F1MF0 

\ 

0200 

22C737 

SHLD  MLTP1 

1 

0310 

2AF237 

LHLD  IVAL 

* 

03  13 

22C137 

SHLD  ML TP 2 

4 

0316 

23 

I  NX  H 

1 

* 

0317 

22F237 

SHLD  IVAL 

■ 

5 

•i 

p 

-i 

031  A 

CD9403 

CALL  MULT 

4 

>: 

COMP. 

(F0XI-F1 X0)+(F1-F0)X  X ( I ) 

J 

.1 

03  i  D 

2AEC37 

1 

LHLD  ALST 

0320 

EB 

XCHG 

0321 

2aC 1 3  7 

LHLD  ANSL 

* 

032^ 

1  9 

DAD  D 

0325 

220037 

SHLD  DVNDL 

j 

r 

0323 

2AEE37 

LHLD  AM ST 

0323 

EB 

XCHG 

032C 

2AC337 

LHLD  ANSM 

«• 

032F 

D23303 

JNC  LICN2 

P 

0332 

23 

I NX  H 

J 

F 

LICN2: 

li 

i* 

0333 

19 

DAD  D 

I| 

ii 

0334 

22  02  3  7 

SHLD  DVNDM 

j 

ii 

It 

0337 

2  1  1400 

LX I  H , 20 

033 A 

220437 

SHLD  DVSRL 

r 

0330 

2! 0000 

LX I  H,0 

0340 

220637 

SHLD  DVSRM 

i 

l! 

0343 

CD7E04 

CALL  DIVIDE 

ij 

♦  ’ 

QUOT. = 

( FOX 1-F 1 XO ) + ( F 1 -F0 ) X  X(I)  / 

ii 

i 

»  : 

r't’H  ER  E 

20  =  Xl-XO 

•  * 
j: 

0346 

2AD337 

LHLD  QUOTL 

h 

f4 

* 

0349 

EB 

XCHG 

[•' 

* 

STORE 

INTERPOLATED  DATA  POINT 

03  4  A 

2 AS 93 7 

LHLD  STRLOC 

C3  4  0 

7  7 

*  -J 

MOV  M,E 

• 

03-’E 

23 

I  NX  H 

1 

0  3  4  r 

72 

MOV  M,  D 

.  ;n  a 


>Y  5 


ro  STCJHii  NEXT  DATA  POINT 


j 


20 


i 


-43- 
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( 

0350  110500 

LX  I  D, 6 

0353  19 

DAD  D 

"  0354  22E337 

SHLD  STkLOC 

' 

19  PTS? 

0357  3AF037 

LDA  CTR20 

*'  035 A  3C 

INS  A 

0353  32F037 

5TA  CTR20 

035E  FE 1 3 

CPI  19 

0360  C20A03 

JNZ  LISU3LP 

0363  AF 

XRA  A 

0364  32F037 

STA  CTR20 

«  0367  2AFA37 

LHLD  FONE 

036 A  E3 

XCHG 

0363  2AE337 

LHLD  STRL0C 

STORE  FI  AS  20TH  POINT 

>  036E  73 

MOV  M, E 

036F  23 

I NX  H 

0370  72 

MOV  M,D 

«  037!  110500 

LX I  D, 5 

0374  19 

DAD  D 

0375  22ES37 

SHLD  STRLOC 

RESTORE  STACK  PTR  TO  GET  NEW 

END  POINTS 

[  0373  2A5537 

LHLD  TMPSP 

0373  F9 

SPHL 

C37C  2AF237 

LHLD  I VAL 

03 7 r  23 

I  NX  H 

0330  22F237 

SHLD  I VAL 

HAVE  60X20  PTS  BEEN  GENERATED? 

i  0323  3AFI37 

LDA  CTR60 

033=  30 

I  NR  A 

0337  32FI37 

STA  CTR60 

'  033A  FE3C 

CPI  60 

03 SC  C26902 

JNZ  LILOOP 

03 3 F  2AFo37 

LHLD  L I SVSD 

<  0392  F9 

SPHL 

j  L  v 

PpT 

•UJLT*  i 

ZERO  OUT  MST  1/2  AMS  AND  CARRY  SAVE 

0394  210000 

LX  I  H , 0000 

C39  7  22C33  7 

SHLD  AN S3 

*  0  3  ^  \  2  C  5  j  / 

SHLD  CARYSV 

DETERVINE  SIGN  OF  ANSWER 

o:-?::  pacts 7 

LHLD  ML TP  1 

03.0  7C 

MOV  A,H 

03  2  AC  13  7 

LHLD  MLTP2 

t  •*»  ;  .  •  '* 

*  .'.*•»  /\V„ 

XR A  H 

03.Au  33  Jr  J  / 

STA  SIGN 

!  ’ 

-44-  ,7 
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03 A8  JE'JO 

MV  I  A  ,8011 

IF  MLTP2<0 ,  MLTP2= 1 MLTP2 

03  AA  A 4 

ANA  H 

03AB  FC6904 

CM  TCI  6 

03 AE  CD7I04 

CALL  CHKZHRO 

03 B 1  22C137 

SHLD  MLTP2 

03B4  2AC737 

LHLD  MLTPI 

03B7  3E80 

MV  I  A , 80H 

' 

IF  MLTPI <0,  MLTP1=1 MLTPI 

03E9  A 4 

ANA  H 

03 BA  FC6904 

CM  TCI  6 

03BD  CD7I04 

CALL  CHKZERO 

03 CO  22C737 

SHLD  MLTPI 

SAVE  SP  FOR  RETURN 

03C3  210000 

LX I  H, 0 

03C6  39 

DAD  SP 

02C7  22C937 

SHLD  MSVSP 

SET  UP  BIT  COUNT 

03CA  3E1 1 

MV I  A, 1 7 

03 CC  32C037 

STA  CNT 

03CF  3 1  Cl  37 

LX I  SP, MLTP2 

MLTLP : 

03D2  21 FFFF 

LXI  H,OFFFFH 

03D5  39 

DAD  SP 

03D6  35 

DCR  M 

03D7  CA4604 

JZ  MLPDONE 

PUT  TEST  BIT  INTO  CARRY 

03  DA  F! 

POP  PSW 

03 CB  D22E04 

JNC  BITO 

BIT  is 

03DE  D! 

POP  D 

03DF  Cl 

POP  3 

03 EO  El 

POP  H 

;  D=MST  1/2  A NS 

;B=CARRY  SAVE 

; H= 1  ST  MULTIPLIER 

;GET  SUM  WITHOUT  CARRIES 

03E 1  78 

« 

MOV  A, B 

03 E2  A A 

XRA  D 

03 E 3  AC 

XRA  H 

03 E4  4? 

MOV  B , A 

03E5  79 

MOV  A , C 

03Eo  AL3 

XRA  E 

03E 7  AD 

XRA  L 

03 E8  41- 

MOV  C, A 

03E9  2 1  FAFF 

LXI  H.OFFFAIl 

i 

REPORT  NO.  NADG- 79240-60 

1 

i  VRTSK.DEM  9/29/ 70  PACE  9 

,  03 EC  39 

DAD  SP 

.  03EL)  F9 

SPHL 

1  ’  ; 

. 

COMPUTE  MEW  CARRY  SAVE 

« 

03  EE  E 1 

POP  H 

03EF  7 C 

MOV  A, H 

03F0  El 

POP  H 

►  '  03FI  A 4 

ANA  H 

r  03F2  57 

MOV  D, A 

03F3  7 C 

MOV  A,H 

l  03F4  El 

POP  H 

03F5  A 4 

ANA  H 

03F6  B2 

ORA  D 

»  03F7  57 

MOV  D, A 

03F8  7C 

MOV  A, H 

03F9  2 1  FAFF 

LXI  H ,  0 FFFAH 

i  <  03FC  39 

DAD  SP 

03FD  F9 

SPHL 

03FE  El 

POP  H 

'  03 FF  A4 

ANA  H 

C4C0  B2 

ORA  D 

0401  57 

MOV  D ,  A 

<  0402  7D 

MOV  A ,L 

0403  E! 

POP  H 

0404  A o 

ANA  L 

I  '  0405  5F 

MOV  E, A 

*  0406  7D 

MOV  A, L 

0407  E! 

POP  H 

<  0403  A 5 

ANA  L 

0409  33 

ORA  E 

040 A  5F 

MOV  E, A 

1  v  040B  7D 

MOV  A, L 

040C  21  FAFF 

LXI  H,0 FFFAH 

|  040 F  39 

DAD  SP 

0410  F9 

SPHL 

04 ! i  El 

POP  H 

0412  A5 

ANA  L 

<  0413  33 

ORA  E 

0414  5F 

MOV  E, A 

0415  El 

POP  H 

i  ^ 

ISTR: 

STORE  NEW  PSCI) 

< 

STORE  NEW  CSC  I) 

0416  05 

PUSH  D 

'  04 | 7  C6 

PUSH  B 

0413  33 

DCX  SP 

04 19  33 

DCX  SP 

«  04 1  A  01 

POP  D 

04 iy  ci 

POP  U 

. 

BCDE=PS(  I  )  — MUSI"  3E  SHIFTED  RIGHT 

BY  1 

•  t 

3HFTs 

04 IC  AF 

X  R  A  A 

-46- 
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PACE  1  0 


I 

V RISK. DEM  9/2 9/ 78 

i 

04  ID 

73 

MOV  A, B 

« 

04  IE 

1  F 

PAR 

J 

04  1  F 

47 

MOV  B , A 

i 

04  20 

79 

MOV  A , C 

t 

0421 

IF 

RAH 

« 

j 

i 

* 

04  22 

4F 

MOV  C , A 

04  2  3 

7A 

MOV  A,D 

1 

j 

0424 

IF 

RAR 

i 

> 

0425 

57 

MOV  D, A 

i 

i 

• 

0426 

7B 

MOV  A, E 

0427 

IF 

RAR 

-* 

0423 

5F 

MOV  E, A 

i 

1 

0429 

C5 

PUSH  B 

042A 

D5 

PUSH  D 

0423 

C2D203 

JMP  MLTLP 

• 

3 ITO: 

« 

c 

> 

COMPUTE  PS  ( I  ) 

• 

i 

042E 

D1 

POP  D 

< 

i 

j 

i. 

042F 

Cl 

POP  B 

04  30 

78 

MOV  A, 3 

0431 

AA 

XRA  D 

i 

i 

** 

0432 

47 

MOV  B, A 

n 

V 

( 

04  33 

7.9 

MOV  A  ,C 

0434 

AB 

XRA  E 

1 

> 

0435 

4F 

MOV  C, A 

i 

0436 

35 

DCX  SP 

0437 

33 

DCX  SP 

f 

/ 

0433 

3B 

DCX  SP 

i 

* 

t 

0439 

3B 

DCX  SP 

i 

> 

COMPUTE  CSC  I ) 

k 

i 

043A 

El 

POP  H 

A 

i 

043B 

7C 

MOV  A, H 

f 

043C 

5D 

MOV  E,L 

j' 

043D 

El 

POP  H 

C43E 

A4 

ANA  H 

i 

043F 

57 

MOV  D,  A 

i 

0440 

7B 

MOV  A  ,E 

i 

J* 

0441 

A5 

ANA  L 

■ 

% 

0442 

5F 

MOV  E, A 

? 

0443 

C3I 604 

JMP  MSTR 

i 

i 

.CLPDONE: 

COMPUTE  PS ( N )  + 


!•  0-46 

:  04*17 

;  j  0448 

1  0449 

04  A  A 
0448 

;  0*140 

0  4  AD 

!  -*  0*150 


23 

33 

El 

Cl 

09 

C5 

E5 

2AC937 

F9 


I  NX  SP 
I  NX  SP 
POP  H 
POP  B 
DAD  B 
PUSH  B 
PL'Sil  H 
LHLD  V,SV; 
SPHL 


CS  (  N ) 

P 

-47- 
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0481  3ACF3  7 
0484  E630 
0456  FO 
0457  2 AC 337 
04 5 A  EB 
0458  2ACI37 
045E  CD0205 
046!  22C137 
0464  EB 
0465  22C337 
0463  C9 


? DETERMINE  PROPER  SIGN  Or  PRODUCT 

LDA  SIGN 
AN  I  BOH 
RP 

LHLD  ANSM 
XCHG 

LHLD  ANSL 
CALL  TWOSCOMP 
SHLD  ANSL 
XCHG 

SHLD  ANSM 
RET 

TCI  6: 


SUBROUTINE  TO  TAKE  TWOS  COMPLEMENT 
OF  16  BIT  WORD  HL 


0469 

7D 

MOV 

A,L 

046A 

2F 

CM  A 

0463 

6F 

MOV 

L ,  A 

046C 

7C 

MOV 

A,  H 

CA6D 

2F 

CM  A 

04oE 

67 

MOV 

H ,  A 

046r 

23 

INX 

H 

0470 

C9 

RET 

CHKZERO* 

04  7 ! 

AF 

XRA 

A 

0472 

BC 

CMP 

H 

0473 

CO 

RNZ 

0474 

3D 

CMP 

L 

0475 

CO 

RNZ 

0476 

2  1  0000 

LX  I 

H ,  0 

0479 

22C i 37 

SHLD  ANSL 

04  7C 

Cl 

POP 

B 

04  7  D 

C9 

RET 

DIVIDE: 


DIVIDE  BY  REPEATED  SUBTRACTIONS 
THEN  ROUND  QUOTIENT  TO  NEAREST 
I NTEGER 


047E 

2! FFFF 

LX  I  H.OFFFFH 

0431 

22DS37 

SHLD  QUOTL 

0484 

22DA37 

SHLD  QUOTM 

; DETERMINE  SIGN  OF  QUOTIENT 

0487 

2AD637 

LHLD  DVSRM 

04  8  A 

7C 

MOV  A , H 

0  483 

2AD237 

LHLD  DVNDM 

04  2 r 

AC 

XRA  li 

048F 

3.2CF37 

STA  SIGN 

;  IF  DVNDcO,  DVND=:DVMD! 

}■■ 

i 

MOV  A, il 

to  NO 

AN  I  3 Oil 

-48- 
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0498 

F2A604 

0498 

EB 

0499 

2AD037 

049C 

CD0205 

049F 

22D037 

04  A2 

EB 

04  A3 

22D237 

■> 

> 

04  A6 

2AD637 

04  A  9 

7C 

04  AA 

E680 

04  AC 

F23D04 

04  AF 

EB 

04EO 

2AD43  7 

> 

04B3 

CD0205 

0436 

22D437 

04  B9 

EB 

> 

04  3  A 

22D637 

> 

C4BD 

EB 

>  043E 

2AD437 

G4C1 

E3 

04C2 

AF 

>  04C3 

B  4 

04C4 

B5 

04  C5 

B2 

»  04  C6 

C2D204 

04C9 

33 

04CA 

CA0105 

*  04CD 

FEO I 

04CF 

CAES04 

> 

.  y 

04D2 

AF 

04D3 

2AD237 

04D6 

EB 

jr 

04D7 

2 AD037 

04  DA 

B2 

04DB 

B3 

04  DC 

34 

04  DD 

B5 

C4L'E 

C2340S 

04  F 1 

2 1 0000 

04E4 

2.-CA37 

9 

04  E  7 

22D837 

04  E  A 

C  9 

* 


JP  CKDV5R 
XCHG 

LHLD  DVNDL 
CALL  TWOSCOMP 
5HLD  DVNDL 
XCHG 

SHLD  DVNDM 

CKDVSR: 

; IF  DVSRcO,  DVSR=:DVSR! 

LHLD  DVSRM 
MOV  A,H 
AN  I  60H 
JP  DOCKS 
XCHG 

LHLD  DVSRL 
CALL  TWOS COMP 
SHLD  DVSRL 
XCHG 

SHLD  DVSRM 

DOCKS: 

?  IS  DVSR  0  OR  I ? 

XCHG 

LHLD  DVSRL 
XCHG 
XRA  A 
ORA  H 
ORA  L 
ORA  D 
JNZ  CKDNO 
ORA  E 

JZ  DIVZERO 
CPI  I 
JZ  DIVONE 

CKDNO : 

» 

; IV  DVND=0 , QUOT  =  0 
XRA  A 

LHLD  DVNDM 
XCHG 

LHLD  DVNDL 
ORA  D 
ORA  E 
ORA  H 
ORA  L 
JNZ  SETUP 

QUOTO: 

LX  I  H ,  0 
SHLD  QUOTM 
SHLD  OUOTL 
RET 

DIVONE: 

t 

; IF  DVSR=I , QUoT=DVND 
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04EB 

2AD237 

LHLD  DVNDM 

04  EE 

EB 

XCHG 

04  EF 

2AD037 

LHLD  DVNQL 

04F2 

3ACF37 

LDA  SIGN 

04  F5 

AA 

XRA  D 

04F6 

FC0205 

CM  TWOSCOMP 

04F9 

22D837 

SHLD  QUOTL 

04  FC 

EB 

XCHG 

C4FD 

22DA37 

SHLD  QUOTM 

0500 

C9 

RET 

DIVZERO: 

050! 

76 

HLT 

TWOSCOMP: 

PAGE 


SUBROUTINE  TAKES  2'S  COMP. 
OF  32  BITS  IN  DEHL 


0502 

7D 

MOV 

A,L 

0503 

2F 

CMA 

0504 

C60 1 

ADI 

1 

0506 

6F 

MOV 

L,  A 

0507 

7  C 

MOV 

A,H 

0508 

2F 

CMA 

0509 

CEOO 

AC  I 

0 

0503 

67 

MOV 

H ,  A 

050C 

73 

MOV 

A,  E 

C50D 

2F 

CMA 

OSCE 

CEOO 

AC  I 

0 

05 1C 

5F 

MOV 

A 

05  !  1 

7  A 

MOV 

A,  D 

C5 !  2 

2F 

CMA 

051  3 

CEOO 

AC  I 

0 

05  1  5 

57 

MOV 

D,  A 

05  1 6 

C9 

RET 

INCQUOT* 


INCR.  QUOT  WITH  EACH  SUCCESSFUL 
SUBTRACTION 


05  !  7 

2AD337 

LHLD  OUOTL 

05  i  A 

70 

MOV 

A,  L 

03  1  B 

C60  1 

ADI 

1 

05  ID 

oF 

MOV 

L,  A 

05  i  E 

7C 

MOV 

A,  H 

Or!  F 

CEOO 

AC  I 

0 

052! 

67 

MOV 

H,  A 

0522 

22D837 

SHLD  QUOTL 

0325 

2 AD A3  7 

LHLD  QUOTM 

0528 

7D 

MOV 

A ,  L 

0629 

CEOO 

AC  I 

0 

0523 

or 

MOV 

L < A 

052C 

7C 

MOV 

A,  H 

05  2D 

CEOO 

AC  I 

0 

0  62  F 

6  7 

MOV 

H,  A 

06  30 

72DA3  7 

SHLD  QUOTM 

0533 

C9 

RET 

SETUP: 
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SET  DVSR=  -DV5R  TO  Do  SUBTRACTION 


0534 

2AD637 

LHLD  DVSRM 

0537 

EB 

XCHG' 

> 

0533 

2AD437 

LHLD  DVSRL 

053B 

CD0205 

CALL  TWOSCOMP 

053c 

44 

MOV  B,H 

053F 

4D 

MOV  C,L 

DIVLP* 

0540 

CD! 705 

CALL  INCQUOT 

■> 

0543 

2 ADO 3 7 

LHLD  DVNDL 

0546 

22DC37 

SHLD  RE ML 

0549 

09 

DAD  B 

« 

054A 

22D037 

SHLD  DVNDL 

054D 

2AD237 

LHLD  DVNDM 

0550 

22DE37 

SHLD  RE MM 

y 

0553 

7D 

MOV  A,L 

0554 

8B 

ADC  E 

0555 

6F 

MOV  L, A 

V 

0556 

7C 

MOV  A, H 

0557 

8A 

ADC  D 

0553 

67 

MOV  H, A 

0559 

22D237 

SHLD  DVNDM 

055C 

DA 4 CO 5 

JC  DIVLP 

C55F 

2ADC37 

LHLD  RE ML 

> 

0562 

7D 

MOV  AtL 

0563 

17 

RAL 

0564 

6F 

MOV  L , A 

0565 

7C 

MOV  A, H 

0566 

1  7 

RAL 

05  67 

67 

MOV  H, A 

0568 

22DC37 

SHLD  RE ML 

0563 

2ADE37 

LHLD  RE  MM 

.  056E 

ID 

MOV  A, L 

> 

056F 

17 

RAL 

0570 

6F 

MOV  L, A 

0571 

7C 

MOV  A, H 

0572 

17 

RAL 

0573 

67 

MOV  H, A 

0574 

22DE37 

SHLD  RE MM 

> 

05.77 

2ADC37 

LHLD  RE  ML 

057A 

09 

DAD  B 

057B 

2ADE37 

LHLD  RE  MM 

% 

C57E 

7D 

MOV  A, L 

• 

057F 

3B 

ADC  E 

0530 

7C 

MOV  A,H 

0581 

SA 

ADC  D 

0582 

DC1 705 

CC  INCQUOT 

0585 

3ACF37 

LDA  SIGN 

> 

05  83 

E680- 

AN  I  80H 

05  3 A 

FO 

RP 

0533 

2ADA37 

LHLD  QUOTM 

C^8E 

Ert 

XCHG 

C5CF 

2AD337 

LHLD  QUOTL 

0592 

CD0205 

CALL  TWOSCOMP 

0595 

22DS37 

SHLD*  QUOTL 

0598 

EB 

XCHG 

' 
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0599 

22UA37 

SHLD  QUOTM 

059C 

C9 

RET 

/ 

I NZDRFTM: 

i 

; GET  INITIAL  ALTITUDE  AMD  SPEED 

J 

{FROM  CRT  AND  DETERMINE 
{PARACHUTE  DISREEFING  TIME 

059D 

0EI4 

MV I  C, READ 

i 

059F 

112142 

LX I  D, FCBDRFTM 

05  A2 

CD0500 

CALL  BDOS 

GET  ALT-* 

t 

05a5 

1 1 3000 

LXI  D, 80H 

05  A3 

0E09 

MV I  C, PRINT 

05  AA 

CD05C0 

CALL  BDOS 

i 

RDALT: 

05  AD 

OEOA 

MV I  C, INLINE 

05AF 

1 1 6041 

LXI  D, INBUF 

! 

0582 

CD0500 

CALL  BDOS 

05B5 

216141 

LXI  H, I NBUF+1 

05B3 

7E 

MOV  A, M 

1 

05  B9 

FE06 

CPI  6 

05  03 

4F 

MOV  C , A 

05BC 

D21 F07 

JNC  AIN VENT 

i 

05BF 

23 

INX  H 

05  CO 

CDB706 

CALL  AS  BCD 

05C3 

DAI F07 

JC  A INVENT 

05C6 

116141 

LXI  D, INBUF+I 

C5C9 

1  A 

LDAX  D 

05CA 

1  3 

INX  D 

i 

05C3 

D605 

SUI  5 

05CD 

0EO5 

MV I  C, 5 

05CF 

2  1  7  44  1 

LXI  H, I N3UF+20 

1 

05D2 

C DC 30 6 

CALL  PREP 

05  D5 

2 1 744 1 

LXI  H , I N3UF+20 

05D3 

1 1 0000 

LXI  D,0 

( 

05D3 

CDDF06 

CALL  TNTrlOUS 

05DE 

228 641 

SHLD  ALT 

0521 

01 AFB9 

LXI  B, -18001 

K 

G5E4 

09 

DAD  B 

05E5 

DAI F07 

JC  A INVENT 

{GET  SPEED 

K 

05E3 

0S09 

MV I  C, PRINT 

05  c  A 

1  1  A  ECO 

LXI  D,OAErf 

05ED 

C  DO  5  00 

CALL  BDOS 

r 

t 

RD3PEED: 

05  FO 

1  1 604 1 

LXI  D, INBUF 

. 

05  F3 

GEO  A 

MVI  C, INLINE 

t 

05  F5 

CD0500 

CALL  BDOS 

4 

05  F3 

216141 

LXI  H  ,  I N3UF+ 1 

05^3 

7E 

MOV  A , M 

05FC 

FE04 

CPI  4 

05  FE 

4p 

MOV  C, A 

05  Hr 

022  707 

JNC  S INVENT 

< 

0602 

2  3 

INX  H 

0603 

CP3706 

CALL  AS!;.CD 

C606 

DA270  / 

JC  S INVENT 

Co  09 

116141 

LXI  D,  I  MiUIF+ 1 

0000 

1  A 

LDAX  0 

1 
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06  OD 

1  3 

I  NX  D 

G60E 

D603 

sur  3 

0610 

0E03 

MV  I  C,  3 

0612 

2  1  7  44  1 

LX  I  H , I NBUF+20 

0615 

CDC306 

CALL  PREP 

0618 

217441 

LX  I  H ,  I NBUF+20 

06  IB 

1 1 0000 

LX I  D,  0 

06  IE 

CDFB06 

CALL  HUNDS 

0621 

22B841 

SHLD  SPEED 

0624 

01 A7FD 

LX  I  B ,-60 1 

0627 

09 

DAD  B 

■j 

0628 

DA2707 

JC  SIN'/ ENT 

0623 

2AB641 

LHLD  ALT 

062  E 

0150C9 

LX I  B,- 14000 

.* 

0631 

09 

DAD  B 

0632 

DAS 006 

JC  T4PT5 

0635 

2AB64  1 

LHLD  ALT 

% 

0638 

019CE3 

LXI  B , -6000 

0633 

09 

DAD  B 

063C 

D2A906 

JNC  T1PT5 

J 

063F 

2AB84 1 

LHLD  SPEED 

0642 

01  1  OFF 

LXI  B , -240 

0645 

09 

DAD  3 

> 

0646 

D2A906 

JNC  T1PT5 

0649 

2  1  i 600 

LXI  H, 22 

064C 

22C737 

SHLD  MLTP1 

j 

064F 

2A3841 

LHLD  SPEED 

0652 

22C137 

SHLD  MLTP2 

06  55 

CD9403 

CALL  MULT 

> 

0658 

2 AB84 1 

LHLD  SPEED 

065B 

29 

DAD  H  ;  2X  S 

06  5C 

22D037 

SHLD  DVNDL 

« 

> 

065F 

2  1  0000 

LXI  H, 0 

0662 

22D237 

SHLD  DVNDM 

0665 

22D637 

SHLD  DVSRM 

0663 

2IOAOO 

LXI  H, 1 0 

0663 

22D437 

SHLD  DVSRL 

066E 

CD7E04 

CALL  DIVIDE 

* 

IQUOT 

=  .  2XS 

;CALC. 

22.2XS 

0671 

2AD837 

LHLD  QUOTL 

> 

0674 

EB 

XCHG 

0675 

2AC137 

LHLD  ANSL 

0678 

19 

DAD  D 

> 

0679 

22CI37 

SHLD  ANSL 

C67C 

2AB841 

LHLD  SPEED 

067F 

29 

DAD  H 

> 

0680 

22D037 

SHLD  DVNDL 

0683 

2  1  0000 

LXI  H , 0 

0636 

220221 

SHLD  DVNDM 

> 

0689 

22 06 3 7 

SHLD  DVSRM 

063C 

2  16400 

LXI  H , 1 00 

06  3  F 

220437 

SHLD  DVSRL 

0692 

CD7E04 

CALL  DIVIDE 

0695 

2AD837 

LHLD  QUOTL 

0698 

E3 

XCHG 

> 

0o99 

2  A  C 1 3  7 

LHLD  ANSL 

C69C 

19 

DAD  1) 
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C69D  .1  I7E34 

LXI  D, -19333 

06 AO  19 

DAD  D 

06 A  1  E3 

XCHG 

06A2  2A364! 

LHLD  ALT 

06A5  19 

DAD  D 

06A6  DAS 00 6 

T1PT5: 

JC  T4PT5 

06A9  215802 

LXI  H , 6 00 

06 AC  22B441 

SHLD  PDRFTM 

06 AF  C9 

T4PT5: 

RET 

06E0  210807 

LXI  H, 1300 

0683  22B441 

SHLD  PDRFTM 

06B6  C9 

RET 

{CONVERT  ASCII-8  BIT 
ASBCD: 

06B7  7E 

MOV  A , M 

0633  FE30 

CPI  30H 

06 3 A  D3 

RC 

06 B3  FE3A 

CPI  3AH 

06 BD  3F 

CMC 

063c  D8 

RC 

•  OK  IF 

BETWEEN  0,9 

06BF  D630 

SUI  30H 

06 Cl  .77 

MOV  M , A 

06C2  23 

INX  H 

06C3  OD 

DCR  C 

C6C4  C237C6 

JNZ  ASBCD 

06C7  C9 

RET 

,v 

PREP: 

&6QS  FEOO 

CPI  0 

060.CAD606 

JZ  PREP2 

06 CD  t6C-0 

MV  I  M , 0 

06 CF  23  ‘X 

INX  H 

06 CO  3C  N . 

INR  A 

06D1  OD 

DCR  C 

C5D2  C2C806 

JNZ  PREP 

06 D5  C9 

PREP2 : 

RET 

C6D6  1  A 

LDAX  D 

C6D7  77 

MOV  M , A 

06D3  13 

INX  D 

06 DP  23 

INX  H 

06 DA  OD 

DCR  C 

06DB  C2Do05 

JNZ  PREP2 

RET  ' 

06 DE  C9 

5 CONVERT  S  311  BCD  TO  HEX 

% 

TNTHOUo  '• 


OoDF 

/  C 

MOV  A.M 

06  EC 

23 

INX  H 

L\>E  i 

FE02 

CPI  2 

OoL'3 

DALA06 

JC  TNTCNT 

uoL~> 

r  1 

POP  H 

OP*7? 

C3IP07 

J VP  A I NVE 

TNTCNT* 
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X 

1 

06EA 

FEO  1 

CPI  1 

i 

1 

06  LC 

C2F206 

JNZ  THOUS 

> 

06  EF 

1  11027 

LX I  D,  10000 

I 

THOUS* 

1 

06F2 

7E 

MOV • A, M 

1 

-3 

06F3 

23 

I  NX  H 

1 

06F4 

01E803 

LX I  3,1000 

» 

06  F7 

CD 1 607 

CALL  BCDHEX 

i 

7 

06FA 

EB 

XCHG 

1 

HUNDS* 

j 

06F3 

7E 

MOV  A, M 

i 

i 

J 

06FC 

23 

INX  H 

06FD 

016400 

LXI  B, 1 00 

? 

I 

r 

0700 

CD1 607 

’CALL  BCDHEX 

i 

J 

0703 

E3 

XCHG 

i 

j 

TENS: 

? 

1 

0704 

7E 

MOV  A, M 

3 

0705 

23 

INX  H 

» 

0706 

010A00 

LXI  B, 10 

i 

0709 

CD1  607 

CALL  BCDHEX 

j 

070C 

E3 

XCHG 

i 

i 

UNITS: 

070D 

7E 

MOV  A , M 

l 

5 

C7CLE 

23 

INX  H 

j 

070F 

010100 

LXI  3,1 

07!  2 

CD  1607 

CALL  BCDHEX 

» 

> 

0715 

C9 

.RET 

i 

BCDHEX: 

i 

i 

0716 

EB 

XCHG 

t 

t 

3HLP: 

0717 

FEOO 

CPI  0 

0719 

C8 

RZ 

) 

07!  A 

09 

DAD  B 

0713 

3D 

DCR  A 

i 

i 

4 

07  1C 

C31707 

JMP  BHLP 

i 

A  INVENT: 

; INVALID  ALTITUDE  ENTERED 

J 

5 

• 

« 

• 

07  IF 

3E04 

MV I  A, 4 

t 

0721 

CD03F3 

CALL  0F803H 

.♦ 

0724 

C3AD05 

JMP  RDALT 

5 

j 

i 

1 

S INVENT: 

3 

; INVALID  SPEED  ENTERED 

i 

0727 

3E04 

MV I  A, 4 

i 

0729 

CD03F8 

CALL  0FS03H 

J 

07  2C 

C3FC05 

JMP  RDSPEED 

f 

I NZDEMO : 

t 

♦ 

* 

072F 

0604  • 

MV I  3,4 

I NZDMLP : 

0731 

OE!  4 

MV  I  C, READ 

t 

i 

0733 

1  14242 

LXI  D, FCBDEMO 

« 

07  3o 

C DO 5 00 

CALL  BOOS 

x 

073« 

0E09 

MV I  C, PRINT 

a 

0733 

1  1  8000 

LXI  D , 80. 1 

4 

073E 

C  DO  5  00 

CALL  BD05 

t 


1 


J 


REPORT  NO.  NADC- 79240-60 


VRTSK.DEM  9/29/78 


0741 

05 

DOR  B 

0742 

023107 

JMZ  I NZDMLP 

0745 

09 

RET 

EJKEY: 

0746 

OEO  1 

MV  I  C,  COM  III 

0743 

CD0500 

CALL  BDOS 

0743 

FE45 

CPI  'E' 

074D 

CA7F07 

JZ  EJECT 

0750 

3E7F 

MV I  A, 7FH 

0752 

CD03F3 

CALL  0F803H 

0755 

034607 

JMP  EJKEY 

WAITING* 

0753 

F3 

El 

HERE: 

0759 

035907 

JMP  HERE  sWAI‘ 

SEQSRT: 

075C 

2ABA41 

LHLD  INTO NT R 

075F 

23 

I  NX  H 

0760 

22BA41 

SHLD  INTCNTR 

0763 

313F37 

LXI  SP , NEED30 

07  66 

217307 

LX I  H, JMPSTRT 

0769 

3AF44 1 

LDA  SEQIMDX 

07  60 

4F 

MOV  C,A 

0760 

0600 

MV I  3,0 

076F 

09 

DAD  B 

0770 

09 

DAD  B 

0771 

09 

DAD  B 

0772 

E9 

PCHL 

JMPSTRT: 

0773 

033707 

JMP  EJCTRTN 

0776 

033 FO 7 

JMP  CTPLTRTN 

0.779 

03SF08 

JMP  RKTSSQ 

0770 

03450 A 

JMP  PARSER 

EJECT: 

077  F 

2I03D1 

LXI  H, 0D1 03H 

0732 

36  74 

MV  I  M , 7  4H 

0734 

2  1  0 1  D 1 

LXI  H.0D101H 

0737 

3650 

MV I  M , 5 OH 

0789 

3603 

MV I  M,  0C3 H 

C723 

3E13 

MV I  A, 1 BH 

0730 

0  00307 

CALL  SIM 

0790 

3E0B 

MV  I  A, OBH 

0792 

CDDB07 

CALL  SIM 

0795 

3I3F37 

LXI  SP, NEED 30 

0  7  9  S 

3E04 

MV  I  A, 4 

079A 

CD03F3 

CALL  0F803H 

C79D 

3E 1  o 

MV  I  A, ESC 

079F 

CLXJ3F3 

CALL  0F803H 

07  A  3 

3  E3D 

MV I  A,'=' 

07  AA 

C  DO  3  F  8 

CALL  0F803H 

0  /  A  7 

3c2  1 

MV  I  A , 2  1  H 

07A9 

CC03F3 

CALL  Or  8031  i 

07  AC 

3E47 

MV I  A, 4 7:1 

C7AE 

C DO 3FH 

CALL  CFB03H 

0731 

2 1 0000 

LXI  H,0 

0734 

22 BA. 4  » 

SHLD  INTCNTR 

EJCTRTN : 

07B7 

0  EO  o 

MV I  0,6 
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07  E9 

CDC707 

CALL  SQUIB 

075C 

C3E207 

JMP  DRIVER 

CTPLTRTN: 

07BF 

0E02 

MV  I.  C ,  2 

07C1 

CDC707 

CALL  SOUIB 

n 

07C4 

C3E207 

SOU  IBs 

JMP  DRIVER 

C7C7 

3E0A 

MV  I  A, OAH 

> 

07C9 

CD03F3 

CALL  0F803H 

07  CC 

3  EC  8 

MV  I  A  t  BS 

07CE 

CD03F8 

CALL  0F803H 

? 

07  D1 

3E2A 

MV  I  A , LGT 

07  D3 

C  DO  3  F  8 

CALL  0F803H 

07D6 

OD 

OCR  C 

) 

07D7 

C2C707 

JNZ  SOUIB 

07  DA 

C9 

SIM: 

RET 

? 

07.DS 

2  I  ECO 7 

LX I  H.SIMl 

07DE 

3630 

S I M 1  : 

MV  I  M ,  3  OH 

-w 

4 

07E0 

00 

NOP 

07  E 1 

C9 

DRIVER: 

RET 

> 

07  E2 

3AF44I 

LDA  SEQINDX 

07E5 

4F 

MOV  C, A 

07E6 

0600 

MV I  B , 0 

} 

07E3 

21EF07 

LX I  H, DRVRCK 

C7EB 

09 

DAD  B 

07EC 

09 

DAD  B 

J 

07  ED 

09 

DAD  B 

07  EE 

E9 

DRVRCK: 

PCHL 

J 

07EF 

C3FS07 

JMP  DRCKA 

07F2 

C32I08 

JMP  DRCK3 

07F5 

C35508 

JMP  DRCKC 

> 

07F8 

2ABA4 1 

DRCKA: 

LHLD  INTCNTR 

07  F3 

01F5FF 

LXI  3,0FFFSH 

* 

07  FE 

09 

DAD  3 

07  FF 

DA  1908 

JC  SSQ3 

0802 

2E1B 

MVI  A, 1 BH 

; 

0804 

CDC2FS 

CALL  0F803H 

0807 

3E3D 

MVI  A,'=' 

0609 

CD03F8 

CALL  0F803H 

? 

cscc 

3E21 

MVI  A , 2 1 H 

OSOE 

CD03F3 

CALL  0FS03H 

0811 

3E47 

MVI  A, 47M 

> 

0613 

CD03F3 

CALL  0F803H 

08  i  6 

C35807 

SBC  B : 

JMP  WAITING 

> 

Cc  1 9 

3  EG  1 

MVI  A, 1 

08  1  3 

32F44 1 

3 1  A  SEC  I  “IPX 

y 

OS  1  E 

CBS SO 7 

DRCKL3 : 

JMP  WAITING 

0621 

2  A  3  A  4  1 

LHLD  INTCNTR 

0524 

01EBFF 

LXI  B.OTriirvi 

* 

0827 

09 

DAD  H 

0828 

DA4208 

JC  SSOC 
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0322 

3E1  B 

MV  I  A ,  1  3:3 

C32D 

CDQ3F3 

CALL  OF 80 3 H 

0330 

3E3D 

MV I  A,'  =  ' 

0322 

CD03F3 

CALL  OF 803 H 

083 5 

3E27 

MV I  A ,27H 

0337 

CD03FB 

CALL  OF 80311 

03  3  A 

3E47 

MV  I  A ,  4  7i  1 

083C 

CD03F8 

CALL  0F303H 

03  3  F 

C35S07 

SSQC: 

JMP  WAITING 

0242 

2  1  0  1  D 1 

LX  I  H.ODIOIH 

0345 

3633 

MV  I  M.88H 

0347 

3613 

MV  I  M, 1 3H 

0349 

3E0  i 

MV I  A, 1 

0343 

32BC41 

5TA  RKTFLG 

03  4E 

3C 

I  NR  A 

034F 

32F44 1 

ST  A  SEQIMDX 

0352 

C353C7 

DRCKC: 

JMP  WAITING 

0355 

3ABC4I 

LDA  RKTFLG 

0358 

FEOi 

CPI  1 

035  A 

CA7403 

J /.  AD JC N  i  R 

035D 

2A3A41 

LHLD  INTO NT R 

0830 

.0 1  ASFD 

LX  I  B , -600 

0363 

09 

DAD  B 

0364 

D25307 

S5GD: 

JNC  WAITING 

0367 

3  EG  3 

MV I  A, 3 

0369 

32F 44 1 

3TA  ScOINDX 

036C 

0E0 1 

MV  I  C ,  1 

036E 

CDC707 

CALL  SQUIB 

037  i 

C3450 A 

JMP  PAR SEP 

ADJCNTR 

i 

0874 

2A3A4  ! 

LHLD  IMTCNTR 

0377 

223D41 

SHLD  TWNTYFV 

Oo7A 

2  1  0000 

LX  I  H , 0 

0S7D 

223A4! 

SHLD  INTCNTR 

0830 

A  F 

XRA  A 

0  33: 

323C4 1 

ST A  RKThLG 

0334 

u35 Ss>  < 

RKrSTM : 

JMP  WAITING 

C  337 

0E02 

MV  I  C , 2 

0  88  9 

CDC707 

CALL  SOU!  B 

035C 

C3E207 

RKTSEQ: 

JMP  DRIVER 

Vj  oc  • 

3A3C4 ! 

LDA  RKTFLG 

0892 

FEOI 

CPI  ! 

n  3  0  * 

CA8703 

CKPCEMs 

JZ  RKFSTM 

0897 

2A5A4 : 

LHLD  INTCNTR 

03 9  A 

1 10302 

LX I  D, 523 

0890 

7  A 

MOV  A ,  D 

('991: 

I3C 

CMP  ri 

Od°i: 

02  A 908 

JNZ  I N  !  A  i'DTA 

03/  iJ 

3501 

MV  I  Ct  1 

OJA-* 

73 

ll/li  /  ;v 

i*»v  i  .  /\  f  L 

C  8  A  5 

BD 

CMP  L 

08  AO 

CCC707 

CZ  SOU  IP 

PAGE 
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06A9 

3E06 

INRATUTA* 

V,V I  A. 6 

08  AB 

010000 

LX  I  3,0 

03AE 

2 1C34 1 

LX  I  H, 4 1 C3H 

G8B1 

22B041 

SHLD  VS  IMP 

03B4 

2A3241 

I  ML  OOP: 

LHLD  VSPTR 

08B7 

09 

DAD  B 

03B8 

03 

I  NX  3 

08B9 

5E 

MOV  E,  M 

03BA 

23 

INX  H 

03  BB 

56 

MOV  D,  M 

03BC 

2A3041 

LHLD  VS  IMP 

08BF 

F9 

SPHL 

08  CO 

210200 

LX  I  H ,  2 

08C3 

39 

DAD  SP 

08C4 

223041 

SHLD  VS  IMP 

08C7 

23 

DCX  H 

08C8 

2B 

DCX  H 

03C9 

09 

DAD  3 

06CA 

03 

IMX  3 

08C3 

F9 

SPHL 

OSCC 

E3 

XTHL 

03  CD 

1  9 

DAD  D 

OSCE 

E3 

XCHG 

CSCF 

E3 

XTHL 

OSCO 

23 

INX  H 

GSD1 

23 

INX  H 

08D2 

73 

MOV  M,  E 

0SD3 

23 

INX  H 

03D4 

72 

MOV  M , D 

08  D5 

3D 

DCR  A 

08D6 

C23403 

JNZ  INLOOP 

08D9 

2A324 1 

LHLD  VSPTR 

C8DC 

09 

DAD  B 

CSDD 

22B241 

SHLD  VSPTR 

08E0 

3I8F37 

LX I  SP, NEED30 

03E3 

CDEC03 

RKTCONT 

CALL  UPDAT 

06E6 

CD3609 

CALL  CNTRLAW 

0SE9 

C3E207 

JMP  DRIVER 

08EC 

2 1 0000 

UPDAT: 

LXI  H, 0 

08EF 

39 

DAD  SP 

08  FO 

22F64 i 

SHLD  SAVE 

06F3 

31C641 

LXI  SP, YSUM1 

08F6 

D  1 

RESID: 

POP  D 

08F7 

2  AEA4 1 

LHLD  YAWR 

08  FA 

CD7B09 

CALL  UPLOG 

03FD 

22EA4 1 

SHLD  YANA 

09  00 

32CD41 

ST A  YAINC 

0903 

D 1 

POP  D 

0904 

Dl 

POP  b 

0905 

2 Ac 04 1 

LHLD  P I  Cl  IN’ 

0903 

CD7R09 

CALL  UPLOG 

0903 

22EC4I 

SHLD  P I G!  I.A 

09CE 

32DE4I 

STA  PCINC 
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09  i  1 

01 

POP  0 

CV  12 

D 1 

POP  D 

09  13 

2AHE4  1 

LHLL)  ROLLR 

0916 

C07B09 

CALL  UPLOG 

09  19 

22EE4I 

SHLD  ROLLR 

09  1  C 

32DF41 

ST A  PL  INC 

091  F 

31 E241 

LXI  SP , D3 1 

09  22 

Cl 

POP  B 

0923 

E  1 

POP  H 

0924 

3ADD4I 

LDA  YAINC 

0927 

2F 

CM  A 

0923 

3C 

INS  A 

0929 

C 09 DO 9 

CALL  INDIS 

0920 

E3 

XTHL 

0920 

3ADE41 

LDA  PCINC 

0930 

CD9D09 

CALL  INDIS 

0933 

E3 

XTHL 

0934 

E5 

PUSH  H 

0935 

Cl 

POP  B 

0936 

El 

POP  H 

0937 

3ADF4 1 

LDA  RLINC 

093A 

2F 

CMA 

0933 

3C 

INR  A 

C93C 

CD9D09 

CALL  INDIS 

09  3F 

E5 

PUSH  H 

0940 

2AE241 

LHLD  D31 

09  43 

3ADD41 

LDA  YAINC 

0946 

CD9D09 

CALL  INDIS 

09  4? 

C5 

PUSH  B 

094A 

E3 

XTHL 

0943 

Di 

POP  D 

094C 

Cl 

POP  B 

09  40 

3ADF41 

LDA  RLINC 

0950 

C 09 DO 9 

CALL  INDIS 

0953 

C5 

PUSH  B 

0954 

33 

DCX  SP 

09  55 

33 

DCX  SP 

0956 

■i3 

XTHL 

0957 

3A0E41 

LDA  PCINC 

09  5A 

2F 

CMA 

0953 

30 

INR  A 

C9  5C 

CD9D09 

CALL  INDIS 

095  F 

w  0 

PUSH  H 

0960 

3AF541 

LDA  TOGCL 

0963 

F501 

CPI  1 

0965 

027209 

JNC  UPDON 

0963 

3C 

INR  A 

0969 

32F54 1 

STA  TOGGL 

0960 

3 1 024  1 

LXI  SP , YSUM 

09oF 

C3F603 

JMP  RES  ID 

UP DON; 

0972 

Ah 

XRA  A 

Cv73 

3 2 F 641 

STA  To DDL 

O'  io 

o 

Li. 

LHLD  SAVE 

C  ■»'  7  4 

Fv 

SPHL 

097A 

:Z\) 

RET 

UPLOG: 

09  73 

1  9 

DAD  I) 
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097C 

3ES0 

MV I  A,  00,-1 

097E 

A  4 

ANA  H 

•» 

09 7 F 

EB 

XCHG 

0980 

C29  009 

JNZ  NECRS 

0983 

2AF24 i 

LHLD  ON EC 

-i 

0986 

i  9 

DAD  D 

0987 

3E60 

MV  I  A.80H 

0989 

A4 

ANA  H 

> 

09  3 A 

3E0 1 

MV I  A,  1 

098C 

C8 

RZ 

098D 

E8 

XCHG 

> 

098E 

AF 

XRA  a 

09  3F 

C9 

MEGR5* 

RET 

/ 

0.990 

2AF04 1 

LHLD  QPOS 

0993 

19 

DAD  D 

0994 

3E80 

MV  I  A  ,  3 CH 

i 

0996 

A4 

ANA  H 

0997 

3EFF 

. 

MV  I  A , 0  FrH 

0999 

CO 

RNZ 

'i 

09 9 A 

EB 

XCHG 

0993 

-AF 

XRA  A 

099C 

C9 

RET 

* 

099D 

FEOO 

INDIS: 

CPI  0 

0.9  9  F 

C8 

RZ 

09  AO 

78 

MOV  A, B 

09  A 1 

F2A609 

JP  LABEL 

09  A4 

2F 

CM  A 

.1 

09  A5 

3C 

LABEL: 

INR  A 

C9A6 

5F 

MOV  E, A 

) 

09A7 

E680 

AN I  8 OH 

09A9 

F23109 

JP  P0S5Y 

G9AC 

loFF 

MV I  D,  OFFH 

> 

09  AE 

19 

DAD  D 

09  AF 

19 

DAD  D 

0930 

C9 

RET 

> 

0931 

1600 

P0S3Y : 

MV  I  D,  0 

0933 

19 

DAD  D 

J 

G934 

19 

DAD  D 

0935 

C9 

RET 

C NT FLAW 

: 

> 

0936 

3AE741 

LDA  D33+I 

0939 

1  7 

RAL 

09J3A 

DACE09 

JC  D33L0 

> 

09  ED 

3AE34 ! 

LDA  D3I+I 

09  CO 

EE7F 

XRr  7FH 

09C2 

67 

MOV  H ,  A 

C9C3 

3AE54 1 

NHGD2 : 

LDA  D32+I 

09C6 

2F 

CMA 

J 

09C7 

3C 

INR  A 

09C3 

EE7F 

XRI  7FH 

09  C  A 

6F 

MOV  L , A 

% 

C9CH 

C 30 50 A 

JMP  OUTP'JT 

D.13LOJ 
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09CE 

3AE34 \ 

LDA  D31+1 

09  Dl 

CD370A 

CALL  A3S 

09  D  4 

4F 

MOV  C , A 

09D5 

5A 

MOV  E,D 

0926 

3AE34 1 

LDA  D32+I 

09  D9 

CD370A 

CALL  ABS 

C9DC 

B9 

CMP  C 

09  CD 

D2F109 

JNC  D32C 

09E0 

3E7F 

MV  I  A.7FM 

09E2 

91 

SUB  C 

09  E3 

4F 

MOV  C , A 

09  E4 

7B 

MOV  A,  E 

09h5 

FE30 

CPI  8 OH 

09E7 

79 

MOV  A, C 

09E3 

CC420A 

CZ  CHS 

09EB 

EE7F 

XRI  7FH 

09  ED 

67 

MOV  Ht A 

09EE 

C3C309 

D320: 

JMP  NEGD2 

09F 1 

3S7F 

MV I  A,7FH 

09  F3 

90 

SUB  B 

09  F4 

47 

MOV  3,  A 

09F5 

7A 

•MOV  AtD 

09F6 

FE80 

CPI  80H 

09  F3 

78 

MOV  A,  3 

09  F9 

C 4420 A 

CNZ  CHS 

C9FC 

EE7F 

XRI  7FH 

09  FE 

6F 

MOV  L, A 

09  FF 

3A.E341 

LDA  D31 +) 

0A02 

EE7F 

XRI  7FH 

0A04 

67 

OUTPUT: 

MOV  H,  A 

0A05 

E3 

XCHC 

0A06 

2AFA41 

LHLD  5CPTR 

0A09 

73 

MOV  M,  E 

OAOA 

23 

I  NX  H 

OACS 

72 

MOV  MtD 

OAQC 

23 

INX  H 

OAOD 

22FA4 I 

SHLD  SCPTR 

OA  10 

21E24I 

LXI  H, D31 

0A13 

1  600 

MV  I  D,  0 

OA  1  5 

3AF04I 

LDA  DCCT 

OA  1  3 

5F 

MOV  E, A 

OA  1  9 

1  9 

DAD  D 

OA  1  A 

3  C 

I NR  A 

OA  1  B 

3C 

I  NR  A 

OA  1  C 

FE05 

CPI  5 

0  \  I  E 

DA 220 A 

JC  LABEL2 

0A2I 

AF 

LABEL2 : 

XRA  A 

OA  22 

32F84I 

5TA  DCCT 

0A25 

EB 

XCHC 

CA26 

I  A 

LDAX  D 

0A27 

cF 

MOV  L , A 

0  A  2  3 

1  3 

INX  D 

OA.':-- 

I  A 

LDAX  D 

GAD  A 

67 

MOV  H , A 

0  A  2  3 

EB 

XCHC 

PAGE  2 
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PAUL  2  6 

0A2C 

2AFC4  1 

LHLD  TLMPTR 

0A2F 

73 

MOV  M, E 

- 

0A30 

23 

I  NX  H 

0A3I 

72 

MOV  M ,  D 

0A32 

23 

I  NX  H 

0A33 

22FC4 1 

SHLD  TLMPTR 

0A36 

C9 

ABSs 

RET 

> 

OA37 

47 

MOV  B ,  A 

0A38 

3E80 

MV  I  A ,  8  OH 

0A3A 

AO 

ANA  B 

■» 

0A3B 

57 

MOV  D,  A 

0A3C 

78 

MOV  A, B 

0A3D 

FO 

RP 

* 

0A3E 

2F 

CMA 

0A3F 

3C 

I NR  A 

0A40 

47 

MOV  B,  A 

i 

> 

0A41 

C9 

CHS: 

RET 

0A42 

2F 

CMA 

* 

0A43 

3C 

INR  A 

0A44 

C9 

PARSEP* 

RET 

0A45 

2ABA41 

LHLD  INTCNTR 

0A48 

EB 

XCHG 

0A49 

2AB441 

LHLD  PDRFTM 

t 

* 

0A4C 

7C 

MOV  A,H 

0A4D 

BA 

CMP  D 

0A4E 

C25807 

JNZ  WAITING 

• 

0A51 

7D 

MOV  A,L 

0A52 

B3 

CMP  E 

0A53 

C25807 

JNZ  WAITING 

i 

-0A56 

0E02 

MV I  C,2 

0A53 

C DC 70 7 

CALL  SQUIB 

> 

FINISHUP: 

» DI SABL 

E  TIMERS  AND 

{DISPLAY  INITIAL  AND  FINAL  ORIENTATION 

0A53 

3EIF 

MV I  A, 1 

FH 

0A5D 

CDDB07 

CALL  SIM 

y 

0A6J 

3I8F37 

LX  I  SPt  NEED 30 

0A63 

1  19542 

LXI  D, FDI S? 1 

0A66 

0E09 

MV I  Cf PRINT 

) 

0A68 

CDC500 

CALL  BDOS 

OAoB 

218442 

LXI  H , F CNT 

0A6E 

3631 

MV  I  M,3  IH 

> 

CA70 

217F0A 

FI NLP: 

LXI  H.ROW+l 

i 

0A73 

34 

INR  M 

> 

OA  7  4 

3E !  3 

MV  I  A , 1 BH 

CA75 

CD03F8 

CALL  0F803H 

0A79 

3E3D 

MV  I  A,'=' 

J 

CA7B 

CD03F8 

CALL  0F303H 

GATE 

3E3  1 

RON : 

MV  I  A ,  3  1 H 

OAEO 

CD03F3 

CALL  0F803H 

> 

OAS3 

3E37 

MV I  A,  3 /II 

1 

OASd 

CD03F8 

CALI  OF803H 

i 

» 

i 
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0A83 

2  I  3442 

LX  1  H,FCNT 

QA83 

7E 

MOV  A , M 

0A8C 

218742 

LX I  H.FDISP+2 

0A3F 

.77 

MOV  M, A 

0A90 

21E241 

LX  I  H,D3I 

0A93 

FE3  1 

CPI  31 H 

0A95 

C  AA  1  0  A 

JZ  FCONTI 

0A93 

23 

I  NX  H 

CA99 

23 

I NX  H 

GA9A 

FE32 

CPI  32 H 

0A9C 

C  AA.  1  0  A 

JZ  FCONTI 

0A9F 

23 

INX  H 

0  AAO 

23 

INX  H 

OAAI 

•S  vZ. 

FCONTI : 

MOV  E , M 

0AA2 

23 

INX  H 

0AA3 

56 

MOV  D,M 

0AA4 

3E80 

MV I  A, 3 OH 

0  AAo 

A2 

AHA  D 

OAA7 

3E20 

MV I  A,'  ' 

OAA9 

F2B50A 

JP  FC0NT2 

OAAC 

7A 

MOV  A,D 

OAAD 

2F 

CMA 

G  AAc 

57 

MOV  D, A 

oaaf 

73 

MOV  A, E 

0A3G 

2F 

CMA 

CAB  1 

-S  1 

MOV  E,  A 

0A32 

13 

INX  D 

0AS3 

3E2D 

FC0NT2: 

MV I  A,'-' 

GA35 

323342 

ST  A  FDISP+6 

0A53 

E3 

XCHG 

GAB9 

22C737 

SHLD  MLTP1 

GAcC 

2  1E803 

LXI  H, 1 000 

0A3F 

22C1 37 

SHLD  ML TP 2 

CAC2 

CD9403 

CALL  MULT 

0A.C5 

2AC137 

LHLD  ANSL 

GAC3 

22D037 

SHLD  DVNDL 

0AC3 

2  AC 33 7 

LHLD  ANSM 

GAGE 

22D237 

SHLD  DVND.M 

0AD1 

2  1  0040 

LX  I  H ,  4  000:  i 

CAD-4 

22D437 

SHLD  DVSHL 

CAL' 7 

2  !  0000 

o 

i 

X 

GAD  A 

220637 

SHLD  DVSRM 

OACC 

CD7E04 

CALL  DIVIDE 

oaeo 

2AD33 7 

LHLD  QUOTL 

0AE3 

0  1  1  5FC 

LXI  B ,  -  l  G  00 

0  AEo 

09 

DAD  b 

GAE7 

DA2 CO 3 

JC  OMEPT 

GAEA 

3E30 

MV  I  A, 'O' 

OaEC 

328042 

STA  FDISP+7 

0  »\  i: 

01 1803 

LXI  D , 1 0 00 

oaf: 

0° 

DAD  B 

OAF  3 

I  1  6400 

FCOMT 3 : 

LXI  D, 1  CO 

0AF6 

0  1  9  OFF 

LXI  3,-1 00 

0AF9 

3180 

MV  I  A,  30.1 

oafh 

C034QH 

CALL  HTOA 

cafe 

323L  1 2 

STA  FDI SP+  > 
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0801 

1 lOAOO 

LX  I  Dt 1 0 

0B04 

OlFoFF 

LX  I  B , -  1 0 

) 

0B07 

3E30 

MV I  A, 3 OH 

0B09 

CD340B 

CALL  HTOA 

OBOC 

328F42 

STA  FDISP+IO 

) 

OSOF 

7D 

MOV  A,L 

08 1  0 

0630 

ADI  30H 

OB  12 

329042 

STA  FDISP+I 1 

3 

OBI  5 

0E09 

MV I  C,9 

OB  1  7 

1 18542 

LXI  D,  FDI SP 

OBI  A 

CD0500 

CALL  BDOS 

> 

OBI  D 

3A8442 

LDA  FCNT 

0B20 

30 

INR  A 

0B2 1 

FE34 

CPI  34H  ‘ 

CB23 

CAOOOO 

JZ  0 

0826 

328442 

STA  FCNT 

0B29 

C3700A 

J//P  FI  NLP 

0B2C 

3E31 

ONEPT* 

MV I  A,'l' 

0B2E 

323C42 

STA  FDISP+7 

CB3 1 

C3F30A 

JMP  FC0NT3 

> 

0B34 

09 

HTOA: 

DAD  B 

0B35 

30 

INR  A 

0B36 

DA340B 

JC  HTOA 

i 

0339 

1  9 

DAD  D 

0B3A 

3D 

DCR  A 

0B3B 

C9 

RET 

} 

0B3C 

216342 

CHOICE: 

LXI  H, FCBMENU 

0B3F 

3600 

MV I  M,0 

j 

CB41 

01  COCO 

LXI  B , 1 2 

0B44 

09 

DAD  B 

0B45 

1615 

MVI  D, 2 1 

i 

* 

0B47 

3600 

CHLP: 

MV I  M,0 

0B49 

23 

INX  H 

) 

0B4A 

15 

DCR  D 

034B 

C24703 

JNZ  CHLP 

0B4E 

.116342 

LXI  D, FCBMENU 

> 

0B5 1 

OEOF 

MVI  C, OPEN 

CB53 

CD0500 

CALL  BDOS 

0356 

1  16342 

LXI  D, FCBMENU 

*v 

0 

0B59 

0E1  4 

MVI  C, READ 

0B5B 

CD05C0 

CALL  BDOS 

035E 

1  1 8000 

LXI  D, 80H 

> 

-0 

0861 

0E09 

MVI  C, PRINT 

0B63 

CD0500 

CALL  BDOS 

GETTSTN 

• 

• 

> 

0B66 

OEC  1 

MVI  C, CON  IN 

0B63 

C DO 500 

CALL  3D0S 

0B63 

320642 

STA  FCBRDl+o 

> 

0S6E 

FE3  1 

CPI  3 1 H 

0370 

C  Ac  COB 

JZ  TEST  1 

0B73 

FE32 

CPI  32H 

0375 

CAA503 

JZ  TEST2 

OB  78 

3  EG  4 

MVI  A, 4 

OB  7  A 

CD03F8 

CALL  OF SO 3 N 

* 

0B7D 

C3600B 

JMP  GETTSTN 

TESTI  : 


> 
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VHTSK 

.DEM  9/29/73 

0380 

2 1 0000 

LX  I 

H,0 

0B83 

22E241 

SHLD 

1  D3I 

0335 

22E641 

SHLD 

i  D33 

OB  69 

210040 

LX  I 

H ,  4  OOOH 

03  30 

22E44 1 

SHLC 

i  D32 

OB  8? 

3E30 

MV  I 

A ,  3  Or! 

0B91 

32C742 

STA 

FDISPI+50 

0894 

32C942 

STA 

FDISP1+52 

0897 

32D442 

STA 

FDISP1 +63 

0B9A 

32DD42 

STA 

FDISPI+72 

0890 

32DF42 

STA 

FDISP1+74 

03  AO 

3C 

INR 

A 

CBA1 

03A4 

32D242 

C9 

TEST2  J 

STA 

RET 

FDISP 1+61 

0BA5 

210000 

LX  I 

H,0 

0BA3 

22E241 

SHLD  D31 

0BA3 

22E441 

SHLD  D32 

OBAE 

21 C040 

LXI 

H, 4 OOOH 

0331 

22E64! 

SHLD  D33 

0  BB4 

3E30 

MV  I 

A ,  3  OH 

0356 

32C742 

STA 

FDISPI+50 

0339 

32C942 

STA 

FDISP1+52 

0  3BC 

32D242 

STA 

FDISP 1 +61 

OBBF 

32D442 

STA 

FDISP 1+63 

03C2 

32DF42 

STA 

FDISP1+74 

03C5 

3C 

INR 

A 

03C6 

03C9 

32DD42 

C9 

STA 

RET 

; INITIALIZE 

FDISPI+72 

SYS.  CALL 

00  1C 

= 

ASS DRV: 

EQU 

23 

0005 

= 

3  DOS: 

EQU 

5 

0010 

= 

CLOSE: 

EQU 

1  6 

0001 

CON  IN: 

EQU 

1 

0002 

= 

CONOUT* 

ECU 

2 

0003 

= 

CONRDY: 

EQU 

1  1 

0013 

= 

DELETE: 

EQU 

19 

001  F 

= 

DRV  IN: 

EQU 

31 

CO  20 

= 

DRVOUT: 

EQU 

32 

0021 

= 

ERMSG: 

EQU 

33 

CO  IB 

— 

GHTALO* 

EQU 

27 

0019 

= 

GETCUR: 

EQU 

25 

C007 

= 

GET 10  B • 

EQU 

7  • 

CO  22 

= 

GETVCB:- 

EQU 

34 

GOOD 

= 

I N I T : 

EQU 

13 

000 A 

= 

INLINE: 

EQU 

10 

0005 

= 

LIST: 

EQU 

5 

CO  1  6 

s 

MAKE: 

EQU 

22 

CO  2  3 

a 

MOUNT: 

EQU 

35 

OOOF 

= 

OPEN: 

EQU 

1  5 

'GO  IE 

= 

PHYDRV: 

EQU 

30 

0009 

a 

PRINT: 

EQU 

00  i  4 

a 

READ: 

ECU 

20 

00 1  7 

a 

RENAME: 

EQU 

23 

CO  ! ! 

a 

SEARCH: 

EQU 

1  7 

000  E 

a 

SELECT: 

ECU 

1  ‘1 

CO  I  2 

= 

SERCHN* 

ECU 

13 

00  1  A 

= 

SET3UF: 

ECU 

3  a 

PAGE  2  9 
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VRTSK.CEM 

9/29/78 

ooo  a  = 

SETine: 

EOU  8 

00  1  D  = 

UNMONT s 

E'QU  29 

"t 

0015  = 

WRITE: 

EOU  21 

; END  SYS 

i.PRMTRS. 

378F  = 

NEED30: 

EOU  378 FH 

) 

3600  = 

BEGYIP: 

EQU  3600H 

367A  = 

BEGPIP: 

EQU  367 AH 

36F4  = 

BEGRIP: 

EOU  36F4H 

) 

4AE0  = 

YRDATA: 

EQU  4AE0H 

4AE2  = 

PRDATA: 

EQU  4AE2H 

4AE4  = 

RRDATA: 

EQU  4AE4H 

37F6  = 

L I JUNK: 

EQU  37F6H 

37CF  = 

SCRATCH : 

1  La  '» 

00  IB  = 

ESC: 

EQU  1BH 

• 

0008  = 

BS: 

EQU  8 

G02A  = 

LGT : 

EQU  2AH 

3  7  CO 

ORG  37C0H 

) 

37C0 

CNT : 

DS  1 

37C1 

ANSL: 

DS  2 

37C1 

ORG  37CIH 

) 

37C1 

MLTP2 : 

DS  2 

37C3 

ANSM: 

DS  2 

37C5 

CARYSV: 

DS  2 

J 

37C7 

MLTP 1 : 

DS  2 

37C9 

MSVSPt 

DS  2 

37CF 

ORG  37CFH 

) 

37CF 

SIGN: 

DS  1 

37D0 

DVNDL: 

DS  2 

37D2 

DVNDM: 

DS  2 

j 

37D4 

DVSRL: 

DS  2 

37D6 

DVSRM : 

DS  2 

37D8 

QUOTL: 

DS  2 

> 

37DA 

QUOTM: 

DS  2 

3  7  DC 

REML: 

DS  2 

37DE 

RE  MM: 

DS  2 

> 

37E2 

ORG  37E2H 

37  E2 

MOVPTR* 

DS  2 

37  E4 

F1MF0: 

DS  2 

% 

J 

37E6 

TMPSP : 

DS  2 

37E8 

STRLOC: 

DS  2 

37EA 

STRTPT: 

DS  2 

4 

/ 

37EC 

ALST: 

DS  2 

37  EE 

AMST : 

DS  2 

37F0 

CTR20: 

DS  1 

J 

37F1 

CTR60: 

DS  1 

37F2 

IVAL: 

DS  2 

37F4 

XZERO: 

DS  2 

) 

57F6 

LISVSP: 

DS  2 

37  F8 

FZERO: 

DS  2 

37  FA 

F()NE: 

DS  2 

) 

37  FC 

FOX 1L : 

DS  2 

37FE 

FOX  1 M : 

DS  2 

-i  1  60 

ORG  4  160.-1 

) 

4 ! oO  50 

I  No OF: 

J3  SO 

4161 

US  1 

4  162 

DS  80 

> 

4  1  GO 

ORG  4 1  ECU 

4  150 

VSINP: 

DS  2 
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PACE  J  I 


ft 

VHTSK 

.DEM  9/29/78 

41  B2 

VSPIR: 

DS  2 

A  1  B4 

PDRFT.M: 

05  2 

•  * 

41B6 

ALT  s 

OS  2 

41  B3 

SPEED: 

DS  2 

41  BA 

INTCNTR: 

■  05  2 

»* 

a  1  BC 

RKTFLC: 

OS  1 

4 1  BD 

TWNTYFV: 

DS  2 

41  Co 

ORG  41C6H 

ft 

41C6 

YSUM1 : 

DS  2 

41CA 

ORG  4 1 CAri 

4 1  CA 

PSUM1 : 

DS  2 

i ' 

4  ICE 

ORG  4ICEH 

4 1  CE 

RSUM1 : 

DS  2 

41D2 

ORG  4  1  02ri 

£* 

41  02 

YSUM2 » 

DS  2 

4106 

ORG  41D6H 

41  Do 

PSUM2 : 

DS  2 

jr 

4  IDA 

ORG  41DAH 

4  IDA 

RSU.M2-* 

DS  2 

41  DD 

ORG  4 1 DDH 

«' 

4!  DD 

YAINC* 

DS  1 

4i  on 

PC INC: 

DS  1 

4  1  Dr 

RLINC: 

DS  1 

r- 

41E2 

ORG  41E2H 

41E2 

D31  : 

DS  2 

4 !  54 

D32 : 

DS  2 

4  1  c6 

033: 

DS  2 

41  EA 

ORG  4  1  EArl 

4i  EA 

YAWR: 

DS  2 

i* 

41  EC 

P ICHR : 

DS  2 

41  EE 

ROLLR: 

DS  2 

4 1  FO 

ORG  4IF0H 

41  FO 

QPOS: 

DS  2 

^  i  F2 

QNEG* 

DS  2 

41  F4 

SEQINDX 

:  DS  1 

4 1  F  5 

TOGGL : 

DS  1 

4  1  Fo 

SAVE: 

DS  2 

41FS 

DCCT: 

DS  2 

^  1  FA 

SCPTR: 

DS  2 

41  FC 

TLMPTR: 

DS  2 

4200 

ORG  4200H 

•  * 

420C 

FC3RD1 : 

DS  1 

4201 

52  444 !  5  44  1 

DB  'RDATA1  DAT 

420C 

DS  21 

4221 

FCBDRFTM:  DS  1 

4222 

4.152465  440 

DB  'DRFTMSG  TXT 

4  220 

DS  21 

> 

4242 

FC3DEM0 

:  DS  1 

42  4 J 

4 4454 04 F 44 

DB  'DEMODSP  TXT 

42  4  E 

DS  21 

.  1 

FCBMENU 

• 

4  2:- 3 

DS  1 

4.04 

40454E5540 

D3  'MENU.'. (SO  TXT 

4?c.F 

DS  21 

**  ..  1? 

FCNT: 

DS  1 

420-3 

444320203DFDI SP : 

OB  'DC  = 

4292 

OAOC 

D:S  OAH.OCli 

4294 

24 

DB 
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V RTS. K. DEM  9/29/78 

4295  OAOAOD  FDISPU  DB  OAH, OAH, ODM 

4298  494E495 449  DB  •'INITIAL  ORIENTATION' 

42 AB  20202020  DB  '  ' 

42 AF  46494E4I4C  D3  'FINAL  ORIENTATION' 

4 2 CO  OD  DB  ODM 

42C1  4 44 33  I 203D  DB  'DC1  =  0.0' 

42CA  OAOD  DB  OAH,ODH 

42 CC  444 33 2203D  DB  'DC2  =  1.0' 

42D5  OAOD  DB  OAH, ODH 

42D7  444 333203D  DB  'DC3  =  0.0' 

42E0  24  DB  'S' 

42 El  END  100H 


PACE  12 
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4.2  FLOW  DIAGRAMS 


REPORT  NO.  N ADC-79240-60 


INITIALIZE 


UNTIL  PILOT  EJECTS 


WAIT 


PROCESS  EJECTION  FUNCTIONS 


DISPLAY:  1.  DISPLAY  INITIAL  ORIENTATION 
2.  DISPLAY  FINAL  ORIENTATION 
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INITIALIZE: 
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REPORT  NO.  NADC- 79240- 60 


PROCESS  EJECTION  FUNCTIONS 
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INITIATE  EJECTION 
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PROCESS  SEQUENCER 


REPORT  NO.  NADC-79240-60 


EXECUTE  SEQUENCE  A 
E3CTR3N: 

UNTIL  6  SQUIBS  HAVE  BEEN  FIRED 


'FIRE  SQUIB'  (SEND  3  CHARACTER  SEQUENCE  -  If, 
bs,*  TO  CRT) 


\ 
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EXECUTE  SEQUENCE  B 
CTPETRIN: 

UNTIL  2  SQUIBS  HAVE  BEEN  FIRED 


’FIRE  SQUIB'  (SEND  3  CHARACTER  SEQUENCE 
bs,  *  TO  CRT) 


REPORT  NO.  NADC- 79240- 60 


EXECUTE  SEQUENCE  C 
RKTSEQ: 


IGNITE  FIRE  PCEM 

ROCKET 


INPUT  RATE  DATA 


INTEGRATE  RATE  DATA 


INDICATE  UPDATE  DIRECTION  COSINES 

BEGINNING 

OF  VERTICAL 

SEEKING  MANEUVER 

ON  CRT 

CALCULATE  ROCKET  COMMANDS 


OUTPUT  GIMEALLING  COMMANDS 


REPORT  NO.  NADC-79240-60 


EXECUTE  SEQUENCE  D 


PARSEP: 


-79- 


REPORT  NO.  NADC-7V240-60 


ALT:  The  address  of  the  first  of  two  consecutive  bytes  of  memory 

in  which  the  binary  representation  of  the  altitude  at  the 
time  of  ejection  is  stored  after  being  converted  from  ASCII. 


ALST:  The  address  of  the  first  of  2  consecutive  bytes  of  memory  in 

which  the  1ST  2  bytes  of  the  4  byte  value  corresponding  to 
(foX]_  -  f]XQ)  in  the  linear  interpolation  formula  are  stored. 


AMST:  The  address  of  the  first  of  2  consecutive  bytes  of  memory  Li 

which  the  MST  2  bytes  of  the  4  byte  value  corresponding  to 
f^^  -  f]_xQ  in  the  linear  interpolation  formula  are  stored. 


ANSL:  The  address  of  the  first  of  2  consecutive  bytes  of  memory 

in  which  the  1ST  2  bytes  of  the  4  byte  product  calculated 
in  the  subroutine  MULTIPLY  are  stored.  This  parameter  is 
returned  to  the  CALLing  routine. 

ANSM:  The  address  of  the  first  of  2  consecutive  bytes  of  memory  in 

which  the  MST  2  bytes  of  the  4  byte  product  calculated  in  the 
subroutine  MULTIPLY  are  stored.  This  parameter  is  returned 
to  the  CALLing  routine. 

BS:  The  8  bit  code  (0000100008H)  which  causes  the  display  cursor 

to  move  non-destructively  to  the  left  one  position. 

CAKYSV:  The  address  of  the  first  of  2  consecutive  bytes  of  memory 

used  in  the  MULTIPLY  subroutine  to  save  the  carry  bits  pro¬ 
duced  by  adding,  'column  by  column' ,  three  16  bit  binary 
lumbers.  (See  discussion  of  multiplication  algorithm.) 

COT:  The  address  of  the  byte  of  memory  used  to  count  16  passes 

through  the  multiplication  loop. 

CTR20:  The  address  of  a  byte  of  manory  used  in  the  linear  interpolation 

subroutine  as  a  counter  to  generate  20  data  points  for  each  set 
of  interpolating  points. 

CTR60:  The  address  of  a  byte  of  memory  used  as  a  counter  to  make  60 

passes  through  the  linear  interpolation  subroutine  each  time 
it  is  called.  (Note:  One  pass  generates  20  data  points 
(including  the  interpolating  points)  X  60  passes  =  1200 
points  generated  by  each  CALL. ) 


DCCT:  The  address  of  a  byte  of  manory  used  to  keep  track  of  which  of 

the  three  direction  cosines  is  to  be  output  to  the  telemetry 
package.  (One  of  the  three  is  output  every  2.5  ms.) 
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DVNDL: 


DVNDM: 


DVSRL: 


DVSRM: 


D31: 


D32: 


D33: 


ESC: 


PCEDEXD: 


PCBDRFIM: 


PCEME24U: 


PCBRDl: 


The  address  of  the  first  of  two  consecutive  bytes  of  memory 
containing  the  1ST  2  bytes  of  the  4  byte  dividend  passed  to 
the  subroutine  DIVIDE. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
containing  the  MST  2  bytes  of  the  4  byte  dividend,  passed 
to  the  subroutine  DIVIDE. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
containing  the  1ST  2  bytes  of  the  4  byte  divisor,  passed 
to  the  subroutine  DIVIDE. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
containing  the  MST  2  bytes  of  the  4  byte  divisor,  which  is 
one  of  the  two  parameters  passed  to  the  subroutine  DIVIDE. 

The  address  of  the  first  of  two  consecutive  bytes  of  merer/ 
containing  the  16  bit  direction  cosine  of  the  angle  from 
the  X-axis  to  the  vertical. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
containing  the  16  bit  direction  cosine  of  the  angle  from  the 
Y-axis  to  the  vertical. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
containing  the  16  bit  direction  cosine  of  the  angle  from 
the  Z-axis  to  the  vertical. 

The  8-bit  code  (00011011  =lB]_g)  representing  the  ESCAPE 
character  which  is  the  first  character  of  any  ESCAPE  sequence 
sent  to  the  display.  (These  sequences  provide  mode  conrrol 
and  sane  cursor  control.) 

The  address  of  the  33  byte  buffer  defining  the  file  control 
block  for  the  disk  file  DE24CMSG.TXT,  required  for  disk  I/O 
under  BDGS. 

The  address  of  the  33  byte  buffer  defining  the  file  control 
block  for  the  disk  file  DFFTJ4SG.TXT,  required  for  disk  I/O 
under  BDOS. 

The  address  of  the  33  byte  buffer  defining  the  file  control 
block  for  the  disk  file  MENUMSG . TXT ,  required  for  disk  I/O 
under  BDOS. 

The  address  of  the  33  byte  buffer  defining  the  file  control 
block  for  either  the  disk  file  RDATAl.DAT  or  RDATA2.DAT, 
required  for  disk  I/O  under  BDOS. 
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PCNE: 


FZEFO: 


F0X1L: 


FOXLM: 


F1MF0: 


INBUF: 

I 


INCNTR: 


IVAL: 


LF: 


LGT: 


LISVSP: 


MUTP1: 


MLTP2: 


MSVSP: 


The  address  of  the  first  of  two  consecutive  bytes  of  memory 
in  which  the  value  corresponding  to  f]_  in  the  linear  inter¬ 
polation  formula  is  temporarily  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
in  which  the  value  corresponding  to  f0  in  the  linear  inter¬ 
polation  fomula  is  temporarily  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
in  which  the  LST  2  bytes  of  the  4  byte  value  corresponding 
to  (f^i)  in  the  linear  interpolation  formula  are  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
in  which  the  MST  2  bytes  of  the  4  byte  value  corresponding 
to  (fQx^)  in  the  linear  interpolation  formula  are  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
in  which  the  value  corresponding  to  (f]_-fQ)  in  the  linear 
interpolation  formula  is  stored. 

The  address  of  an  82  byte  buffer  required  for  CRT  input 
under  BDCS. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  to  count  the  number  of  timer  interrupts  in  order  to 
calculate  elapsed  time  since  ejection. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
containing  the  value  corresponding  to  in  the  linear  inter¬ 
polation  formula. 

The  8-bit  code  (00001010  =  OAK)  which  causes  the  cursor  to 
move  one  line  down  in  the  same  column  position  (LIME  FEED)  . 

The  8-bit  code  (00101010  =  2AH)  which  causes  the  character 
to  be  displayed  on  the  CRT. 

The  address  of  the  first  of  2  consecutive  bytes  of  memory 
used  to  save  the  stack  pointer  at  the  beginning  of  the  linear 
interpolation  subroutine  for  correct  return  when  dene. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
in  which  the  multiplicand  (one  of  two  parameters  passed  to 
the  subroutine  MULTIPLY)  is  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
in  which  the  multiplier  (one  of  two  parameters  passed  to  the 
subroutine  MULTIPLY)  is  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  to  save  the  stack  pointer  at  the  beginning  of  the 
MULTIPLY  subroutine  for  correct  return  when  done. 
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MOVPTR: 

NEED30: 

FCINC: 

PDRFTM: 

PICHR: 

PStKL: 


PSUM2: 

QNEG: 


Tlie  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  as  a  pointer  to  move  each  record  of  the  rate  data  file 
into  the  proper  area  of  memory  as  it  is  read  from  the  disk. 

The  address  of  the  first  of  thirty  consecutive  bytes  of 
memory  to  which  the  stack  pointer  must  be  set  before  CALLing 
the  subroutine  in  the  VIOFCM  (at  memory  location  F803)  which 
displays  the  character  in  the  accumulator) . 

The  address  of  the  byte  of  memory  used  as  a  flag  to  control 
A0y  in  implementing  the  Crowder  Hession  Update  Algorithm. 

Its  value  is  determined  by  pitch  rate  data. 

The  address  of  the  first  of  two  consecutive  bytes  of  merory 
in  which  the  calculated  parachute  disreefing  item  is  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  to  save  the  sum  required  in  order  to  use*  the  trapezoid 
rule  to  integrate  pitch  rate  data  (see  detailed  discussion 
of  trapezoidal  rule) . 

The  address  of  the  first  of  two  consecutive  bytes  of  merrory 
used  in  the  implementation  of  the  trapezoid  rule,  which 
contain,  at  any  given  time  during  the  vertical  seeking 
maneuver,  the  partial  sum  of  pitch  rate  data  whose  value 
at  time  t  is  defined  as: 

at  t=2*5  PSUMl=(a+qt_1  ) 

at  t=5.0,  7.5. ..1500  PSUM-(q  tq  ) 

V3.75^t-1.25 

(where  t  =  number  of  elapsed  milliseconds  since  the  beginning 
of  the  vertical  seeking  maneuver) . 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  in  basically  the  same  way  as  PSUM1,  whose  value  at  time 
t  is  defined  as: 

at  t=2.5  PSUM2= (0+qt) 

at  t=5.0,  7. 5.. .1500  PSLM2=(qfc  2  5+qt  ^ 

The  address  of  the  first  of  two  consecutive  bytes  of  marorv 
containing  the  binary  value  corresponding  to  the  quantity  In 
the  trapezoidal  rule  (see  detailed  discussion) . 

- (2A/Ah)  =  -OCCOH  =  F340H 


-83- 


REPORT  NO.  NADC-79240-fcO 


OPOS: 

QUOTL: 

QUOIM: 

REML: 

KEM4: 

RKEFLG: 

RLINC: 

ROLLR: 

RSUM1: 


The  address  of  the  first  of  two  consecutive  bytes  of  memory 
containing  the  binary  value  corresponding  to  the  quantity  in 
the  trapezoidal  rule  (see  detailed  discussion) . 

2A/Ah  =  °CCOH 

The  address  of  the  first  of  two  consecutive  bytes  of  man ory 
containing  the  LST  2  bytes  of  the  4  byte  quotient  calculated 
in  the  subroutine  DIVIDE.  This  parameter  is  passed  to  the 
CALLing  routine. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
containing  the  MST  2  bytes  of  the  4  byte  quotient  calculated 
in  the  subroutine  DIVIDE.  This  parameter  is  passed  to  the 
CALLing  routine. 

The  address  of  the  first  of  two  consectuive  bytes  of  memory 
used  in  the  subroutine  DIVIDE  for  temporary  storage  of  the 
LST  2  fcytes  of  the  4  byte  dividend,  updated  with  each  pass 
through  the  divide  loop. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  in  the  subroutine  DIVIDE  for  temporarily  storing  the 
MST  2  bytes  of  the  4  byte  dividend  updated  with  each  pass 
through  the  divide  loop. 

The  address  of  a  byte  of  memory  used  as  a  flag  word  to  indicate 
when  sequence  C  is  being  executed  for  the  first  time. 

The  address  of  the  byte  of  memory  used  as  a  flag  to  control 
AGx  in  implementing  the  Crowder  Hession  Direction  Cosine 
Update  Algorithm.  Its  value  is  determined  by  roll  rate  data. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  to  save  the  sum  required  in  order  to  use  the  trapezoid 
rule  to  integrate  roll  rate  data.  (See  detailed  discussion 
of  trapezoid  rule.) 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  in  the  implementation  of  the  trapezoid  rule,  which 
contain,  at  a  given  time  during  the  vertical  seeking  maneuver 
the  partial  sum  of  roll  rate  data  whose  value  at  time  t  is 
defined  as: 

at  t=2.5  _  RSUM1= (0+pt_1  25) 

at  t=5.0,  7. 5,... 1500  RSUMl=(pfc_3  75+Pt  ^  2$) 

where  t  =  number  of  elapsed  milliseconds  since  the  beginning 
of  the  vertical  seeking  maneuver) . 
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RSUM2: 


SAVE: 


SCPTR: 


SCRATCH: 


SEQINDX: 

f  SIGN: 


SPEED: 


STRLDC: 


STRTPT: 


TLMPTR: 


TMPSP: 


The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  in  basically  the  same  way  as  RSUM1,  whose  value  at 
time  t  is  defined  as: 

at  t  =  2.5  RSUM2=(04pt) 

at  t  =  5.0,  7. 5... 1500  RSUM2=fo  _  c+p  ) 

t-2 .5  t 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  to  save  the  stack  pointer  at  the  beginning  of  the  cosine 
update  subroutine  for  correct  return  when  done. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  as  a  pointer  to  the  block  of  memory  (locations  3800  H 
to  3CAFh)  in  which  the  rocket  gimballing  caimands  are  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  to  save  the  return  address  for  correct  return  from  the 
MULTIPLY  subroutine  when  CALLed  by  the  linear  interpolation 
subroutine  (LINT) . 

The  address  of  the  byte  of  memory  which  determines  to  which  of 
4  sequences  control  of  the  program  is  passed. 

The  address  of  the  byte  of  memory  used  to  keep  track  of  the 
correct  sign  of  the  product  calculated  in  the  MULTIPLY 
subroutine  or  of  the  quotient  calculated  by  the  DIVIDE 
subroutine. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
in  which  the  hexadecimal  representation  of  the  speed  of  the 
pilot  at  ejection  is  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
passed  as  a  parameter  to  the  linear  interpolation  subroutine 
which  designates  the  beginning  of  one  of  three  blocks  of 
memory  in  which  interpolated  rate  data  is  to  be  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
passed  as  a  parameter  to  the  linear  interpolation  subroutine 
which  designates  the  beginning  of  one  of  three  blocks  of 
memory  containing  60  interpolating  points. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
designating  where  wdthin  a  block  of  memory  (locations  3CB0H 
to  414FH)  telemetry  output  data  is  to  be  stored. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  to  save  the  contents  of  the  stack  pointer  before 
CALLing  the  subroutine  MULTIPLY. 
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TTDGGL: 


TWNTYFV: 


VSBJP: 


VSPTR: 


XZERO: 


YAINC: 


YAWR: 


YSUM1: 


YSUM2: 


The  address  of  a  byte  of  memory  used  to  keep  track  of  which 
of  the  two  passes  through  the  cosine  update  routine  that 
take  place  every  2.5  ms.,  the  current  pass  is. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  to  save  the  number  of  25  ms  interrupts  received. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  as  a  pointer  within  a  12  byte  block  of  rate  data. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  as  a  pointer  within  the  block  of  memory  containing  all 
of  the  rate  data  for  the  current  vertical  seeking  maneuver 
to  designate  the  12  bytes  of  rate  data  which  will  be  input 
with  the  next  timer  interrupts. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
in  which  the  value  corresponding  to  x  in  the  linear  inter¬ 
polation  formula  is  temporarily  storec. 

The  address  of  the  byte  of  memory  used  as  a  flag  to  control 
AQz  in  implementing  the  Cro/der-Hession  Cosine  Update 
Algorithm.  Its  value  is  determined  by  yaw  rate  data. 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  to  save  the  sum  required  in  order  to  use  the  trapezoidal 
rule  to  integrate  yaw  rate  data.  (See  detailed  discussion 
of  trapezoidal  rule) . 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  in  the  implementation  cf  the  trapezoid  rule,  which 
contain,  at  any  given  time  during  the  vertical  seeking 
maneuver,  the  partial  sum  of  yaw  rate  data  and  whose  value 
at  time  t  is  defined  as: 

at  t=2.5  YSUM1= (0+rt_^  25) 

at  trf.O,  7.5... 1500  YSUM1= (rt_3>75+trt_1_25) 

(where  t  =  number  of  elapsed  milliseconds  since  the 
beginning  of  the  vertical  seeking  maneuver. ) 

The  address  of  the  first  of  two  consecutive  bytes  of  memory 
used  in  basically  the  same  way  as  YSUM1 ,  whose  value  at  time 
t  is  defined  as: 

at  t=2.5  PSUM2=(0+rfc) 

at  t-5.0,  7. 5.  ..1500  PSUM2=(rt_2  +r  ) 
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4.4  Maiory  Map  of  Data  Buffers  and  Program  Variables 
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5.  USER'S  GUIDE 

5.1  Objective 


The  objective  of  the  program  DEMO  is  to  demonstrate,  cn  the  IMSAI  PCS 
80/30  software  development  system,  the  capability  of  the  INTEL  8085  pP 
to  perform  the  real-time  timing  and  sequencing  required  to  execute  the 
functions  of  a  vertical  seeking  ejection  seat.  A  listing  of  the  pro¬ 
gram  can  be  found  in  section  4.1. 


5.2 


Approach/Assurrptions 


Because  of  its  nature  as  a  software  development  system,  the  IMSAI  PCS 
80/30  lacks  the  specialized  hardware  interfaces  and  "peripheral  devices" 
that  would  be  found  on  a  true  ejection  seat  system.  To  compensate  for 
this,  the  program  goes  through  a  lengthy  initialization  process  before 
the  demonstration  of  the  real-time  timing,  sequencing  and  simulated 
execution  of  the  ejection  functions  takes  place.  The  program  is  caoable 
of  simulating  an  ejection  from  an  initial  orientation  of  a  90°  roll  or 
a  180°  roll. 


5.3  Input 

Be  lew  is  a  list  of  the  input  files  and  parameters  required  by  the  program. 
The  files  are  permanently  stored  on  the  disk  and  read  as  required  during 
execution  of  the  program:  the  parameters  are  input  by  the  user  as  de¬ 
scribed  in  section  5.5.  A  brief  description  of  each  is  given  here. 

5.3.1  DISK  FILES 

5. 3. 1.1  MENUMSG.TXT 

This  file  contains  the  message  displayed  on  the  CRT,  giving  the  user  a 
choice  of  executing  the  ejection  from  an  initial  orientation  of  a  90° 
roll  or  a  180°  roll.  The  message  is  shown  in  section  5.5-1. 

5. 3.1.2  RDATA1.DAT  or  RDATA2.DAT 

These  files  contain  the  rate  data  interpolating  points  for  the  90°  roll 
test  and  the  180°  roll  test  respectively.  When  the  user  selects  the 
initial  orientation,  the  appropriate  RDATA  file  is  read  into  memory. 

Using  the  information  contained  in  the  file,  the  3600  pieces  of  rate 
data  required  to  execute  the  vertical  seeking  maneuver  are  generated 
and  stored  in  memory  locations  4AE04-66FFH. 

5.3.1. 3  DRTTMSG.TXT 

This  file  contains  the  messages  displayed  on  the  CRT  asking  the  -user  to 
input  the  altitude  and  speed  at  ejection.  The  messages  are  shown  in 
sections  5.5-2  and  5.5-3  respectively. 
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5. 3.1.4  DE-iODSP .  TXT 

This  file  contains  a  list  of  all  of  the  ejection  functions  to  be  execut¬ 
ed  along  with  instructions  on  how  to  becin  the  demonstration .  The  mes¬ 
sage  is  shown  in  section  5.5-5. 

5.3.2  Keyboard  Input 

5. 3. 2.1  Test  Number 

The  user  selects  the  initial  orientation  of  the  ejection  seat  system. 

TEST  1  executes  the  ejection  from  an  initial  orientation  of  a  90°  roll; 
TEST  2  executes  the  ejection  from  an  initial  orientation  of  a  180°  roll. 

5. 3.2.2  Initial  Altitude  and  Speed 

These  two  parameters  determine  the  time  at  which  the  functions  PARACHUTE 
DISKEEFING  and  SEAT/OCCUPANT  SEPARATION  are  executed  as  defined  in  Ficure 

2.12. 

5. 3. 2. 3  Ejection  Signal 

When  all  of  the  initialization  functions  have  been  completed,  the  program 
waits  for  the  character  1 E'  to  be  input.  This  initiates  the  execution 
of  the  ejection  sequence. 

5.4  Output 

To  indicate  the  execution  of  each  of  the  ejection  functions,  the  procram 
displays  the  character  ' * '  next  to  the  function  being  performed .  When 
all  of  the  ejection  functions  have  been  executed,  the  procram  disc lays 
the  direction  cosines  of  the  initial  orientation  of  the  ejection  seat 
system  and  its  orientation  at  the  completion  of  the  vertical  seeking 
maneuver.  Using  these,  the  position  of  the  ejection  seat  system  can  be 
determined.  (See  Ficure  2.2).  The  final  CRT  displays  for  the  90°  roll 
test  and  the  180°  roll  test  are  shown  in  Figure  5.1(a)  and  5.1(b)  respec¬ 
tively. 


5.5  Program  Set  Up/Run  Procedure 

After  loading  the  diskette  entitled  "VRTSK" ,  the  program  can  be  run  as 
follows ; 

1.  Type  "DE-JO"  as  an  E-EOS  resident  console  conrand 

The  program  will  clear  the  screen  and  display 
the  message 

SELECT  DESIRED  TEST 

1.  90  DEGREE  ROLL 

2.  180  DEGREE  ROLL 
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uP  EJECTION  SEAT  FEASIBILITY  DEMO 


Emergency  02  Generation 

Inertial  Reel  Firing 

Neck  Bladder  Inflation 

Hip  Thruster  Firing 

Canopy  Removal 

Gyro  Spinup 

Seat  Release 

Catapult  Initiation 

Rocket  Initiation 

Rocket  Gimballing  Initiated 

PCEM  Fired 

Rocket  Gimballing  Completed 
Parachute  Disreefed 
Seat/Occupant  Separated 
******************  ******** ********* 

Initial  Orientation  Final  Orientation 


Initial 

Orientation 

D31  =  0. 

»  IM 

D32  =  1. 

si 

D33  =  0. 

uP  EJECTION  SEA 1  FEASIBILITY  DEMO 


Emergency  02  Generation 
Inertial  Reel  Firing 
Neck  Bladder  Inflation 
Hip  Thruster  Firing 
Canopy  Removal 
Gyro  Spinup 
Seat  Release 
Catapult  Initiation 
Rocket  Initiation 
Rocket  Gimballing  Initiated 
PCEM  Fired 

Rocket  Gimballing  Completed 
Parachute  Disreefed 
Seat/Occupant  Separated 
*****************  ****  ******  ************* 

Initial  Orientation  Final  Orientation 

D31  =  0.000  D31  =  .164 

D32  =  0.000  D32  =  .089 

D33  =  1.000  D33  =-.970 


5.1  Final  CRT  Displays 
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2.  Type  "1"  or  "2" 

Entering  an  invalid  test  number  causes  the 
"SELECT  DESIRED  TEST"  message  to  be  reissued. 
When  a  valid  entry  is  made,  the  program  will 
initialize  the  rate  data  for  the  test  select¬ 
ed.  (This  takes  1. 5-2.0  minutes).  When  the 
rate  data  initialization  is  complete,  the 
program  will  display  the  message 

ENTER  ALTITUDE  AT  EJECTION  (0-18,000  ft.) 

3.  Type  a  valid  response  and  hit  carriage  return 

Entering  an  invalid  altitude  causes  the 
"ENTER  ALTITUDE"  message  to  be  reissued. 

VJien  a  valid  entry  is  made,  the  program 
will  display  the  message 

ENTER  SPEED  AT  EJECTION  (0-600  KEAS) 

4.  Type  a  valid  response  and  hit  carriage  return 

Entering  an  invalid  speed  causes  the 
"ENTER  SPEED"  message  to  be  reissued. 

When  a  valid  entry  is  made,  the  follow¬ 
ing  display  will  appear  on  the  CRT 


AtP  EJECTION  SEAT  FEASIBILITY  DEMO 

Emergency  02  Generation 
Inertial  Reel  Firing 
Neck  Bladder  Inflation 
Hip  Thruster  Firing 
Canopy  Removal 
Gyro  Spinup 
Seat  Release 
Catapult  Initiation 
Rocket  Initiation 
Rocket  Gimballing  Initiated 
PCEM  Fired 

Rocket  Gimballing  Completed 
Parachute  Disreefed 
Seat/Occupant  Separated 

****************************************** 

TO  BEGIN  DEMONSTRATION ,  PRESS 'E' _ 
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5.  Type  "E" 

The  program  is  now  demonstrating,  in  real-time , 
the  timing,  sequencing  and  simulated  execution 
of  the  ejection  functions.  The  demonstration 
takes  either  2.05  or  5.05  seconds  to  run,  de¬ 
pending  on  the  time  of  PARACHUTE  DISREEFING/ 
SEAT/OCCUPANT  SEPARATION. 

5.6  Special  Features 

Some  modifications  were  made  to  the  program  to  create  a  second  version 
(PROTOUT)  .  PROTOUT  performs  the  same  functions  as  DE-D  (though  not 
in  real  time) ,  but  also  provides  hardcopy  output  tracina  each  step  in 
the  execution  of  the  vertical  seeking  maneuver . 

PROTOUT  outputs  the  following  data: 

T  -  time  (in  milliseconds)  since  the  beginning  of  the  vertical 

seeking  maneuver. 

R  -  yaw  rate  data  (in  deg. /sec.)  input  at  time  T 

Q  -  pitch  rate  data  (in  deg. /sec.)  input  at  time  T 

P  -  roll  rate  data  (in  deg. /sec.)  input  at  time  T 

DC1  -  direction  cosine  of  the  angle  from  the  x-axis 

to  the  vertical  after  being  updated  at  time  T 

DC2  -  direction  cosine  of  the  angle  from  the  Y-axis 

to  the  vertical  after  being  updated  at  time  T 

DC3  -  direction  cosine  of  the  angle  from  the  z-axis 
to  the  vertical  after  being  updated  at  time  T 

RIOT®  -  the  roll  steering  command  generated  at  time  T 

PCOT®  -  the  pitch  steering  command  generated  at  time  T 

Appendix  A  contains  a  program  listing  of  PRNTOUT  along  with  the  data 
output  for  the  90°  roll  test  and  the  180°  roll  test. 

After  loading  the  diskette  entitled  "VRTSK",  PROTECT  can  be  run  as 
follows : 

1.  Type  "PROTOUT"  as  an  E-DCS  resident  console  command 

The  program  will  clear  the  screen  and  display 
the  message 

SELECT  DESIRED  TEST 
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1.  90  DEGREE  ROLL 

2.  180  DEGREE  ROLL 

2.  Type  "1"  or  "2" 

Entering  an  invalid  test  number  causes  the 
"SELECT  DESIRED  TEST"  message  to  be  reissued. 
When  a  valid  entry  is  made,  the  program  will 
initialize  the  rate  data  for  the  test  select¬ 
ed.  (This  takes  1. 5-2.0  minutes).  When  the 
rate  data  initialization  is  complete,  the 
program  will  display  the  message 

ENTER  ALTITUDE  AT  EJECTION  (0-18,000  ft.) 

3.  Type  a  valid  response  and  hit  carriage  return 

Entering  an  invalid  altitude  causes  the 
"ENTER  ALTITUDE"  message  to  be  reissued. 

When  a  valid  entry  is  made,  the  program 
will  display  the  message 

ENTER  SPEED  AT  EJECTION  (0-600  KEAS) 

4.  Type  a  valid  response  and  hit  carriage  return 

Entering  an  invalid  speed  causes  the 
"ENTER  SPEED"  message  to  be  reissued. 

When  a  valid  entry  is  made,  the  follow¬ 
ing  display  will  appear  on  the  CRT 


nP  EJECTION  SEAT  FEASIBILITY  DEMO 

Emergency  02  Generation 
Inertial  Reel  Firing 
Neck  Bladder  Inflation 
Hip  Thruster  Firing 
Canopy  Removal 
Gyro  Spinup 
Seat  Release 
Catapult  Initiation 
Rocket  Initiation 
Rocket  Gimballing  Initiated 
PCEM  Fired 

Rocket  Gimballing  Completed 
Parachute  Disreefed 
Seat/Occupant  Separated 

TO  BEGIN  DEMONSTRATION,  PRESS 'E' 
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5.  Type  "e" 

The  program  is  now  executing  the  ejection 
functions,  printing  the  data  described  above 
as  each  step  in  the  vertical  seeking  algorithm 
is  completed.  Running  PRNTOUT  takes  approxi¬ 
mately  50  minutes. 

5.7  Outline  of  Changes  for  Implementation  in  an  Actual  Ejection 
Seat  System 

As  previously  mentioned,  the  demonstration  program  was  written  for 
implementation  on  a  software  development  system;  some  changes  are 
required  if  it  is  to  be  implemented  in  an  actual  ejection  seat  system. 
These  changes  are  outlined  below.  (Refer  to  the  program  listing  in 
section  4.1) . 

a)  Delete  the  following  lines: 

108 

10B 

111 

117 

11D 

120 

132  -  19B 
IDF  -  LEE 
LFE  -  393 
59D  -  628 
6B7  -  745 
77F  -  7AE 
7C7  -  7E1 
802  -  813 
82B  -  83 C 
842  -  847 
874  -  877 
A5B  -  BC9 

If  no  multiplication  or  division  is  required 
394  -  59C 

b)  Delete  the  initialization  of  the  following  variables 

•  (end  of  listing) . 


ASSDKV 

IN  IT 

SETIOB 

F1MF0 

F0X1M 

BDCS 

INLINE 

UNMOUNT 

TMPSP 

INEUF 

CLOSE 

LIST 

write’ 

STRIjOC 

VSINP 

CDNIN 

MAKE 

BBGYIP 

STRTPT 

VSPTR 

CONOUT 

MOUNT 

BEGPIP 

ALST 

TVJNTYFV 
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OONRDY 

OPEN 

BEGRIP 

AMST 

SCPTR 

DELETE 

PHYDRV 

YRDAT7V 

CTR20 

TTMPTR 

DRVIN 

PRINT 

PRDATA 

CTR60 

FCBRD1 

DKVOUT 

READ 

RRDATA 

IVAL 

FCBDRFTM 

EFMSG 

RENAME 

LIJUNK 

XZERO 

RCBDEMO 

GE7TALO 

SEARCH 

ESC 

LISVSP 

FCBMENV 

GETCUR 

SELECT 

BS 

FZERO 

FCNT 

GETTIOB 

SIRCHN 

LGT 

FONE 

FDISP 

GEIVCB 

SETEUF 

MOVPTR 

F0X1L 

FDISP1 

c)  Change  line  10E  to  CALL  INZDCS,  where  INZDCS  is  a  sub¬ 
routine  which  inputs  the  direction  cosines  of  the 
initial  orientation  of  the  ejection  seat  system, 
converts  them  to  the  scaling  used  in  the  program 

(see  section  2. 1.4.1),  and  stores  them  in  D31,  D32 
and  D33.  (Note:  This  may  be  part  of  the  routine 
EJECT,  that  is,  input  at  the  time  of  ejection). 

d)  The  subroutine  INZRST75  (lines  126-131)  may  have 
to  be  changed  if  the  2.5  ms  interrupt  received 
by  the  system  directs  the  program  oounter  to  a 
location  other  than  3C. 

e)  If  the  time  of  parachute  disreefing  and  seat/occupant 
separation  is  determined  only  by  the  altitude  and 
speed  of  the  ejection  seat  system  at  ejection,  these 
two  values  (ALT  and  SPEED)  should  be  input  with  the 
initial  orientation  values  D31,  D32  and  D33.  Their 
time  of  execution  should  be  stored  in  PABDRFTM  (in 
terms  of  2.5  ms  interrupts).  If  the  conversion  from 
altitude  and  speed  to  time  is  determined  as  defined 
by  Figure  2.12,  the  code  from  lines  62B-6BC  and 
A45-A53  can  be  used.  (This  requires  that  the  MULT 
and  DIVIDE  subroutines  be  left  in)  Figure  2.12,  as 
implemented  in  the  code,  is  represented  by  the  follow¬ 
ing  equations:  (If  a  simular,  but  different,  para¬ 
chute  deployment  chart  is  used,  the  changes  can  be 
made  as  noted.) 


1. 

if  ALT  2  14000  ft,  T  =  4.5 

(test 

in 

line  62E) 

2. 

if  ALT  <  6000  ft,  T  =  1.5 

(test 

in 

line  638) 

3. 

if  SPEED  <  240  KEAS,  T  =  1.5 

(test 

in 

line  642) 

4. 

if  ALT  >  'a' ,  T  =  4.5 

(test 

in 

line  6A5) 

5. 

if  ALT  <  'a' ,  T  =  1.5 

(test 

in 

line  6A5) 

where  'a'  is  the  altitude  on  the  diagonal,  corresponding 
to  the  given  speed,  'a'  is  computed  using  the  equation  of 
the  diagonal  as  follows 

F(*i)  -  «  -  (f0*rVo)  +  ((frfo)  (xin 
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a  =  (14000) (600)- (6000) (240) +  ( (6000-14000)  (SPEED)) 

:  (600-240) 

This  is  implemented  in  the  code  (lines  649-6A1)  as: 
a  =  19333  -22.2 (SPEED) 

If  an  entirely  different  method  of  determining  the 
time  of  parachute  disreefing/seat/occupant  separation 
is  used,  the  code  frcm  lines  62B-6BC  and  A45-A53  should 
be  deleted,  and  code  implemented  to  determine  the  time 
as  defined. 

f)  For  the  first  .55  seconds  after  ejection,  the  interrupt 
counter  is  counting  25  ms  interrupts;  after  that,  it  is 
counting  2.5  ms  interrupts.  Two  separate  rates  were 
used  to  allow  time  dinring  the  first  .55  seconds  to 
interface  with  the  display.  In  an  actual  system,  the 
interrupt  rate  would  most  likely  be  constant  (2.5  ms 
or  whatever  is  to  be  used) .  Since  the  time  of  execu¬ 
tion  of  the  functions  is  determined  by  counting  the 
number  of  interrupts,  the  comparison  values  used  would 
have  to  be  changed.  Each  of  these  comparison  values 

is  noted  below. 

line  6A9,  6B0  -  Set  time  of  parachute  disreefing/seat/ 
occupant  separation  (=number  of  2.5  ms 
interrupts  since  beginning  of  vertical 
seeking  maneuver) 

line  7FB  -  Test  if  time  to  start  sequence  B  (next 
interrupt  =  12th  25  ms  interrupt?) 

line  824  -  Test  if  time  to  start  sequence  C  (next 

•  interrupt  =  21st  25  ms  interrupt?) 

line  860  -  Test  if  end  of  vertical  seeking  maneuver 

(last  interrupt  =  600th  2.5  ms  interrupt?) 

line  89A  -  Test  if  time  to  execute  Fire  PCIM  (520th 

2.5  ms  interrupt?) 

g)  The  routine  EJKEY  (lines  746-755)  would  have  to  be  changed 
to  input  the  ejection  signal  as  defined  by  the  systan. 

h)  The  routine  INRATDTA  (lines  8A9-3DD)  inputs  the  six  pieces 
of  rate  data  required  every  2.5  ms.  In  the  demonstration 
program,  this  data  is  read  from  a  rremory  buffer;  in  an 
actual  system  it  would  be  read  through  an  I/O  port  as 
defined  by  the  hardware  designed  to  interface  with  the  gyros . 
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This  routine  also  performs  part  of  the  integration  as 
follows: 


1.  read  r 


t-1.25 

save  it  -  (replaces  r.  _  __) 

t=3.75 

calculate  YSUM1  (see  section  4.3) 


2.  read  25 

save  it  -  (replaces  qt_3  75) 
calculate  PSUM1  (see  section  4.3) 


3.  read  Pt_1>25 

save  it  -  (replaces  p^-3  75) 
calculate  RSUM1  (see  section  4.3) 

4.  read  rt 

save  it  -  (replaces  rt_2>5) 
calculate  YSUM2  (see  section  4.3) 

5.  read  qfc 

save  it  -  (replaces  qt_2  5) 
calculate  PSUM2  (see  section  4.3) 


6.  read  pt 

save  it  -  (replaces  Pt_2  5) 
calculate  RSUM2  (see  section  4.3) 


This  part  of  the  integration  would  have  to  be  done  in  the 
Input  Data  Routine  written  to  replace  INRATDTA.  The  values 

rt-1.25,  qt-1.25,  pt-1.25,  rt,  qt,  pt,  YSUM1'  PStML'  RSUMl' 
YSUM2,  PSUM2,  RSUM2  should  be  stored  in  memory  as  shown  in 
section  4.4. 


In  the  demonstration  program,  the  steering  commands  and 
telemetry  output  data  are  stored  in  memory  in  the  form 
defined  by  the  China  Lake  system  (This  is  done  in  lines 
A06-A0D  and  A2C-A33  respectively) .  In  an  actual  system, 
these  would  be  output  through  an  I/O  port  to  a  D/A  con¬ 
verter  in  the  form  defined  by  the  hardware  interface 
designed  for  the  system  used. 

The  subroutines  enabling  the  execution  of  the  ejection 
functions  would  have  to  be  changed  to  execute  the  functions 
as  defined  by  the  specially  designed  hardware  interface 
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used  on  the  seat.  These  subroutines  are  (reference 
Table  2.3) : 

EJCTRTN  (7B7-7B9)  -  enables  SEQUENCE  A  functions.  . 

CTPLTRTN  (7Bf-7Cl)  -  enables  SEQUENCE  B  functions. 

RKFSTM  (887-889)  -  enables  Rocket  Ignition. 

CKPCEM  (8A2-8A6)  -  enables  Fire  PCEM. 

PARSEP  (A56-A58)  -  enables  SEQUENCE  D  functions. 

k)  The  code  would  have  to  be  assembled  to  begin  executing 
from  location  0000. 
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APPENDIX  A 
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The  following  listings  show  the  yaw,  pitch  and  roll  input  rate  data,  the 
3  direction  cosines  and  the  steering  ccmmands  generated  at  each  step 
(every  1.25  ms)  in  the  execution  of  the  vertical  seeking  maneuver. 


-Al- 


REPORT  NO.  NADC-79240-60 


H 

A 


i 


A.  1  Vertical  Seeking  Maneuver  -  90°  Roll  Test 
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A. 2  Vertical  Seeking  Maneuver  -  180°  Roll  Test 
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1  *  •  <  1  .25 

1  25 

-075 

-3d3 

n.  1  93 

0 . 0  7  o 

-0.965 

1472.dC 

1  26 

-075 

—  3o*+- 

0.193 

0.075 

—  j  •  v  C  0 

00 

■*» 

14/  ‘  .  i  D 

1  26 

-075 

*>  c  /* 

J  O  -r 

0.191 

0.074 

-0 . 9  66 

1  475.00 

1  26 

-075 

-J64 

0.191 

0.0  / 

-  0 .  v  6  6 

o  J. 

>  •> 

1 475.25 

1  26 

-C7d 

-364 

0.191 

0.07.; 

.-8 

:> 

! 4-7.50 

12: 

-075 

-064 

0.  1  92 

0.073 

O  2Q 

.  1 

1 473. 7d 

1  27 

-075 

-065 

0 .  1  92 

0.030 

—  )  C)C) 

•■J  «  '  v.‘w 

1  4.30.00 

127 

-075 

-0  CD 

0.  1  34 

0.030 

-0.267 

0  1  - 

0  ‘8 

s> 

1431 .25 

1  27 

-07  j 

-Ood 

0.  1  34 

0.000 

-0.967 

i 4=2 . 50 

1  27 

-0  75 

-06  5 

0.1  35 

0.070 

f"'  .7  7 

^  J  1 

J~l  . 

OB 

i 430. 75 

1  28 

-07o 

-066 

0.  1  CJD 

0.  079 

-0.  v'o  7 

» 

I  4  55.  '0 

i  23 

-07d 

-066 

0  .  1  D 

0.0  79 

-0.957 

* ) 

OB 

!  4  =D . 2d 

1  23 

-0 ' : 

-066 

0.  1  35 

U  •  JO 

-  ;  / 

120 

-0U 

-Joo 

0 .  1  /  ■ 

3.0;5d 

-0.98 

’-I 

o- • 

i  4  -  '  .  7d 

i  .* 

>  ’ 

-  0  6  / 

’ .  1  : 

0  •  0  3  i 

1  ■  *  ^  ' 
i  ••  •  ... 

1  2  v 

-  '  7  s 

-0-*>7 

0 .  I  /  • 

i  i .  i-i 

1  4 

-  )  7v 

“  .  D  / 

0.1  /3 

)  '  '  » • 

”  .  •  M*' 

1 

i  r> 

-0  /  j 

-Jo  7 

0.  1  /  ' 

C.  ':M 

“  1  •  •  V  •' 

-r 

0  8 

1 4  -  J.  ,  j 

i  j- 

— j  7«.' 

—  J  o  ■ ' 

"i  .171 

0.  J  .0 

1  •  a 

i  p 

-  '  v'  •> 

0.1  /  I 

•  '  «  V*  * 

-  .  'V  • 

»  • 

’  ' .  V 

A 

i  ■  .  ■ 

1  30 

.  i  / 

-'Jo,' 

i  / 1 

J  •  J  '0 

-  .  ;  •.  > 

i  o 

1  P 

— 

6.  1  L 

0.  i  <y 

—  .  '  0  *' 

l  •  i-. 

131 

-  : 7 

- 

.).  i  /.: 

0.019  > 

-  ; .  ^  ; 

*o 

1  ,K) 

i  :u 

—  )  7 ; 

3.  1  vVl 

O.0:i‘> 

-0. 9/ J 

34 

0  \ 
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A.  3  Program  Listing  -  PRINTOUT 


pouf 

■  j  i ,  ij  tM 

REPORT  NO.  NADC-79240-60 

or.-/ 

CUO  100!! 

)  i  /;'/ 

0") 

iiop 

1 

o  i  ;  i 

U  •/ 

*  j 

nr 

3  1  ;F8  / 

LX  I  f;P ,  UEF030 

i*_/ 

Cd<dOI 

CALL  id/iUMi'd 

t 

0  1  r 

O'). ‘60  1 

CAi.L  I  -i 

cirj 

C  07  .-.05 

CALL  C.lOiCi- 

Cl  Oc 

C.J1  AOC 

CALL  PFKTi !0.i 

1 

oi ;  i 

C 02=00 

CALL  PdiiTIuTLU 

o :  1 4 

006201 

CALL  IiIZOSK 

Oi  1  7 

C  07  20  i 

CALL  IMZVii’81.3 

t 

o :  i  a 

CD 000 2 

CALL  IiiZ.-MDATA 

0!  ID 

CD9F05 

CALL  INZDPRM 

0120 

CD5501 

CALL  Iil ZDS P 

t 

0123 

CC3I07 

CALL  IdZDEMO 

Ol  25 

034807 

jm:>  hjkey 

9 

0129 

21327D 

IrlZHRMTRs 

LX I  M, 7D32K 

0120 

3613 

mv  i  m,  1 3H 

012= 

21397D 

LX  I  H,  7D89d 

j 

0131 

3612 

MV I  M.12H 

Oi  33 

3E40 

;SET  UP  BAUD  RATE 

MV I  A,  40;-! 

i 

01  35 

03F3 

OUT  0.-3H 

01  37 

2103D1 

LX I  H,  GDI  03ri 

Oi  3  A 

3535 

MV I  K,36d 

r 

0  i  3C 

2  1  GOD  1 

LX I  H, 00 100.-! 

0  1  3F 

3  663 

MV  I  M ,  6  Sri 

•  4i 

3600 

MV  I  M. ,  0 

2 

_  .  43 

AF 

XRA  A 

01  44 

D3  1  3 

OUT  13H 

0146 

D31  3 

OUT  1 3H 

0 1  4  3 

D31  3 

OUT  I3H 

0 1  4  A 

3  =  40 

MV I  A,  40!  I 

Oi  4C 

03  1  3 

OUT  13d 

«.» 

0 1  <’E 

3  EC  A 

MV I  A, OCAH 

C 1  50 

03 1  3 

OUT  I3H 

0152 

3237 

MV I  A,  37, i 

a 

0154 

03  i  3 

OUT  13d 

* 

0  i  56 

COCO r 3 

I  iIZOSP : 

iCLhAS  SCREEd,  USE  40  CLMN3., 

' ;  US E  UPPER  AMD  LOr-.ER  CASE 

call  or-sood 

0152 

32  1  n 

MV I  A,  IBM 

«* 

0153 

v*  *j\j  J  r  cj 

CALL  OF 003  i  ; 40  COLMNS 

C  i  5;: 

*>'• « *« 
JLtw 

MV I  A, 4 3d 

0160 

COO  3. -5 

CALL  OF SO 3d 

0163 

5213 

MV  I  A ,  1  PH 

01c:'. 

CGG3F  , 

CALL  OF SO  3d 

'  0160 

3  :•  3  J 

MV  I  A, -35  1 

# 

'  \  1  .  A 
v.  1 

e:\:3Fs 

CALL  OF SO 3d 

0  i  o  3 

(>■> 

KKT 

M 

v’  i  (*  \ 

?.  i  \)'l  2 

IdZDSd* 

1 1 d IT I AL I VM  FILE  COdiTdl.  ULOCiLi 

5A.iL)  OPED  ALL 

9 

LX  I  1  i ,  FG5 i.’i )  1 

* 

- - 

REPORT  NO.  NADC- 79240- 60 

?i?;:k 

rji . 

t’.AOt:  3 

* 

0 IV 1 

j 

yv  i  o 

01  Tj 

0 1 JCOO 

LX  l  3,12 

) 

01  7t> 

1  L-';3 

MV  I  2,3 

•71 

1  o  1  C 

MV  1  1J,  3.7 

L5M : 

> 

01  /A 

0  y 

DAD  3 

LPJ: 

017b 

2  6  DC 

MV I  7,0 

3 

01  7J 

53 

!  iIX  H 

0  1  7  5 

1  5 

DC1<  D 

017= 

C57301 

JNZ  L5S 

0182 

1616 

MV I  D, 22 

0184 

23 

DCX  ri 

0185 

10 

DCR  E 

0136 

C27A0 1 

Ji!Z  LPM 

0  1  37 

O-QF 

MV  I  C,  OPEN 

0185 

1 1 0042 

LX  I  D, r'CBPD 1 

> 

013= 

COO 5 00 

CALL  BOOS 

j 

0191 

112142 

LX  I  D, FCBDHFfM 

0194 

COO 5 00 

CALL  BOOS* 

> 

0197 

1 14242 

LX I  D, FCBQ5M0 

019/. 

COO 5 CO 

CALL  BDOS 

019D 

y 

SET 

IHZV23LS:  . 

0 1  95 

»  r~ 
f 

Xk  A  A 

019  = 

2  i  0000 

LX  I  H ,  0 

(  5 

0 1  A2 

32F34 1 

ST A  DCCT 

•">  1  A  J 

32544! 

ST  A  SEQL-iDX 

A3 

225A4 1 

SHLD  yaw;? 

3 

Cl  AD 

22  =04  1 

SHLD  P 1 0  312 

0 1  A  5 

22554  1 

SHLD  ROLL 9 

0 1  5 ! 

32C44  1 

SHLD  YS 'J-.il -2 

2> 

0184 

22 JO 4 1 

SHLD  Y3UH2-2 

0157 

22034 ! 

SHLD  PSUM1 -2 

0  1  DA 

22/44  1 

SHLD  ?5U..:2-2 

0 1  DO 

?2  2C 1 

SHLD  RSU.il -2 

0 1  CO 

27284 1 

SHLD  RSU.v.2-2 

0 1  CO 

72084 1 

SHLD  YS!  H 

3 

0 1  05 

22-224  1 

SHLD  YS'J  '2 

010/ 

2.7CA41 

SHLD  5SU-.il 

p  | 

22 Jo 4 1 

SHLD  5JU  i.2 

3 

0  i  Cr 

22054 1 

SHLD  .751 JMI 

ci  i  ::-2 

.7  2.1' A  4  1 

SHLD  KSU 72 

0 1  Do 

32:-'J4  1 

ST  A  YAIiiO 

oi  no 

32 J541 

ST  A  501  :,o 

OIL'D 

32DF4  l 

ST A  KLIHO 

0 1 1:5 

32534 1 

ST  A  TCMOL 

0151 

2  1  0032 

LX  I  H ,  3 S  *i  1:! 

oi ;  i 

725A4 1 

Slli.il  JOi’i’2 

01  ::  i 

?  1 0.030 

La!  li ,  3i.lD.lt  1 

0 1  V.  \ 

*‘250  1 1 

SHI.D  t'L.'-’i'i; 

C  1  AC 

.7  1  20  4  A 

LX  I  ;i,  i.A  ! 

’  :0 

73  334  1 

SliLD  i*.,' 

IDA 

r.ioooc 

LX  t  .1 ,  DO-JOT 

oi 

*>0.  04  1 

oHL"  V05 

;;!!•  > 

.’14053 

I.X  [  :!,  'i-M'M 

'51:  •  ' 
Oil  :• 

.Vi- 1 ;  i 

iiiii.l  '» J . i i:(  • 

.*  t 

’J. 

pHirro'JT.Psci 
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IKZKOATA* 

• 

5  READ  FII.fr  r  III  END  PO[ 
»  A  HD  INTERPOLATE  l'-)  ’ !  E  i 
S  1200  PIeCc5  OF  i)AY\ 

PITCH  All!)' ROLL  .:AI‘ 


* 


0200 

21 0036 

LX I  H.3600H 

0203 

22.2231 

SHLD  .Y.OVPT!-; 

0206 

0603 

MVI  3,3 

. 

SETUP  IPS: 

«► 

0205 

OEM 

MV I  C, READ 

020A 

1 10042 

LXI  D»FC3i<Dl 

02  OD 

CD0500 

CALL  BOOS 

«y 

• 

9 

? MOVE  BOH  BYTES  TO  ITT 

a 

0210 

2AE237 

LHLD  MOVPTR 

0213 

1 13000 

LXI  D,50H 

MOV LOOP : 

«< 

0215 

1  A 

LDAX  D 

0217 

77 

MOV  M , A 

0218 

13 

I  NX  D 

«*• 

0219 

23 

inx  :i 

021  A 

AF 

XRA  A 

0213 

BA 

CMP  D 

02 1C 

CA 1 602 

JZ  MOVLOOP 

02  IF 

222231 

5HLD  MOVPTR 

0222 

05 

OCR  B 

-  • 

3223 

C20602 

JNZ  SETUP  IPS 

; SET  UP  TO  INTERPOLATE 

0226 

21 0036 

• 

LXI  H, BEGYI P 

0229 

22EA37 

SHLD  STRTPT 

*1 

022C 

21E04A 

LXI  H, YRDATA 

022F 

22t837 

SHLD  STRLOC 

0232 

CD5402 

.  CALL  LINT 

5 SET  UP  TO  INTERPOLATE 

<• 

0235 

217A36 

LXI  H, BEGPI P 

0238 

22EA3  7 

SHLD  STRTPT 

023B 

21E24A 

LXI  H, PR DAT A 

«?» 

023E 

22 £83 7 

SHLD  STRLOC 

024  1 

CDb402 

CALL  LINT 

• 

• 

?SET  UP  ro  INTERPOLATE 

• 

0244 

21F436 

LXI  M.HcJRIP 

«• 

02  47 

22EA37 

SHLD  Si'KTPT 

C24A 

21E44A 

LXI  H, CROAT A 

02  4  D 

222331 

Si  ILL'1  SiWLOC 

0250 

CL>34  03 

CALL  LINT 

0253 

C9 

.RET 

LIUT* 


<1 


;F<  XI  )--[.-'0Xl-FI  XO  +  (Hi 


RTS. 3TORA3E 


YAV!  RATS  DATA 


PITCH  RATE  DATA 


ROLL  RATE  DATA 


-F0)*XI 1/IX1-X01 


o 


'J 

REPORT  NO.  NADC- 79240-60 

r'i'iiT”1!:.  i-K.i 

1  « 

’ 

02 54  210000 

r  V  r  •  / » 

L.  A  I  i  I  ,  ) 

*%  025  < 

dao  :;i' 

|  253  22:  0 3  7 

J: :l.. D  L.  T  07. ii’ 

[  0253  2  1  r  6  3  / 

LX  I  JiM.IJl'sY. 

o  02 3  i  ;  i  >ooo 

LX  I  .3,0000 

0261  l!0 100 

LXr  D, I 

0264  C-j 

PUSH  1) 

nix/  nu 

9  yj£-OJ  vjJ 

push  o 

!  02  66  C5 

PUSrl  8 

0267  2AEA37 

LHLD  313721 

t®  02 6 A  rV 

SPHL 

.  ILOOP: 

0263  El 

POP  H  ; r 0 

3  026C  220 137 

SHLD  ML  TP  2 

026F  22FS37 

SHLD  FZ’cRO  »FOR  LA72I! 

0272  2AE437 

LHLD  XZERO 

O  0275  3E 14 

MV I  A, 20 

0277  35 

ADD  L 

0273  SF 

MOV  L, A  ;0cT  X! 

0  0279  70 

MOV  A , H 

02 7A  CZGO 

AC  I  0 

0270  67 

mO  '/  »1  f  r*. 

0  0270  220737 

SHLD  ML TP  1  ; FO  X  X! 

0280  210000 

LX  I  H , 0 

0233  39 

DAD  SP 

b  s?>  0284  22E637 

SHLD  TMP5P 

• 

SAVE  STACK  PTP  BEFORE  CALL  MULT 

3> 

0257  3I0F37 

LX  I  SP , SCRATCH 

02 5 A  CD9603 

CALL  MULT 

1  v> 

PRODUCT  Or  MULT  =  FO  X  XI 

o  0230  2A0I37 

LHLD  ADSL 

0290  22FC37 

SHLD  FOX IL 

0293  2 A0 33 7 

LHLD  ALSO 

.*>  0296  7  2  F  E3  7 

SHLD  FOX  1  M 

0299  2 Ac 63 7 

LHLD  i'MPSP 

02 9 C  F9 

SPHL 

O  0290  El 

POP  H  ;CET  FI 

0292  .3 si 

DCX  SP 

029  i-  33 

DCX  SP  ;=>;xt  FO 

O  02 A0  220!  37 

SHLD  ML TP 2 

02 A3  222 A3  V 

SHLD  FOlic 

02 A 6  2AF437 

LHLD  XZERO 

Q  02 A 9  220737 

SHLD  i.'tLT?  1 

' 

Me  XT  XO  =  CiJ  RREIi  r  XO  +  2C 

•3 

O.’AO  111400 

LX  I  0,20 

'3  9  ;•  1  -9 

DAO  D 

o  '  -0-  .Vi-43  7 

SOLD  XZeRO 

v;:>  31  ’OX) 

LX  I  .1,0 

YUC’  v- 

DAO 

*»  o.  :•  .*  6.3  / 

3!  II.  U  i  .'P  ip 

'  V  A  A  !  'Ji;A  / 

LX!  *  )  !  *  9  .  '  .  \  A  1  •  i  i 

i* 

pfiirrouT.Kr; 
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02  hi) 

CD9oD3 

CALL  MUL  f 

e> 

PRODUCT  F:<0.".  MULT 

' 

COMPUTE  r ; ) a  1 

o 

02C0 

2AFC37 

LHLD  FOX  1 L 

02C3 

E3 

xchc; 

o 

02  C4 

2  AFr.37 

LHLD  FO X  «'/. 

G2C7 

4D 

MOV  C,L 

02CS 

44 

.30 V  is,H 

& 

' 

: 

3CD2  -  FOX  1 

a 

02C9 

2ACI 37 

LHLD  AH CL 

02  CC 

7D 

MOV  A, L 

02CD 

2F 

CM  A 

02  CE 

C60  1 

ADI  1 

02  DO 

6F 

MOV  L, A 

02D1 

7C 

MOV  A , H 

0 

02D2 

2F 

CM  A 

0203 

C  E  00 

ACI  0 

02  C  5 

67 

MOV  ri ,  A 

0 

02Dc 

22CI37 

Sh'LD  ADSL 

C2D9 

2  AC ’3  7 

LHLD  Ai ISM 

02  DC 

ID 

MOV  A, L 

0. 

0  2  DO 

2F 

C.MA 

02DE 

CEOC 

ACI  0 

02E0 

OF 

MOV  L, A 

0. 

02  E 1 

7C 

MOV  A,H 

02E2 

2F 

CM  A 

02E3 

CEOO 

ACI  0 

0% 

02E5 

67 

MOV  H , A 

02E6 

220321 

SHLD  AIIS .3 

0* 

AMSM/L  =  -FI XO 

02E9 

2  AC  I  37 

LHLD  ADSL 

0s 

02EC 

i  9 

DAD  D 

02ED 

22EC37 

SHLD  ALST 

02  F0 

2  AC  33  7 

LHLD  Al ISM 

02  F3 

D2F7C2 

JMC  LICN1 

02F6 

23 

I  NX  H 

LICN1  : 

0» 

02  F  7 

09 

DAD  3 

02  F3 

22EE3  7 

SHLD  AM ST 

0* 

COMPUTE  FI  -  FO 

02F3 

2AF837 

LHLD  FZEilO 

0\ 

02  FE 

7D 

MOV  A, L 

02  FF 

2F 

CM  A 

0300 

4  F 

•'07  0 ,  A 

*• 

0301 

10 

MOV  A,ii 

0303 

2F 

*  1 1  • 

1303 

•'•7 

.'.()■/  3,  A 

0304 

03 

i  MX  3 

030b 

2ArA.1V 

LULL1  FOiL: 

REPORT  NO.  NADC- 79240-60 

Pk.'.T? 

UT.  P.p.i 

o 

, '  r. 

■JO  * 

J 

DAI)  3 

3vv 

22.. -13  7 

SNLU  r  1  !\rO 

o 

L 

.  IJ'JOLi’s 

OCiPPUTi:  (Fl-i-O)  X  .<(  I) 

r* 

030.: 

2 AS  43 7 

l::i.d  f:h.vo 

03  OF 

22073/ 

SOLD  NLf'PI 

o 

0312 

2Ar2j / 

LHLD  IVAL 

0315 

22C  1  3  7 

SHLD  -V.LTP2 

0313 

23 

I NX  H 

& 

03  1  9 

22F237 

SHLD  IVAL 

03 1C 

CD9603 

CALL  MULT 

<s 

COMP .  ( FOX  1 - F 1 XO )  +  ( F 1 -FO ) X  X ( I ) 

03  IF 

2A£C37 

LHLD  ALST 

o 

QodC 

\r  p 

—  j 

XCr!C 

0323 

2AC1 37 

LHLD  AN’SL 

032c 

19 

DAD  D 

0327 

220037 

SHLD  DVMDL 

032 -. 

2AEE37 

LHLD  AM ST 

0323 

or  o 
..  -/ 

XCHG 

0322 

2 AC 33 7 

LHLD  AilSM 

0331 

023503 

JVC  LICN2 

0334 

23 

IUX  H 

LICm’2: 

0335 

1  9 

DAD  D 

'336 

220237 

SHLD  DVi ’DM 

j  33  * 

2  1  1  400 

LX I  H, 20 

0330 

220-37 

SHLD  D'/SHL 

0  «,*  -  ** 

2  1  0000 

LX I  H,0 

o 

0345 

220637 

SiiLD  DVSH.'i 

C3--:- 

0 J 3004 

CALL  DIVIDE 

C"J.)T.  =  (FOXI-F  !X0)  +  CF1-F0)X  X  C I ) 

j-IHciJE  20  =  X  I -XO 

o 

,  -v  -5 

3  .-.023  7 

LHLD  OUOTL 

0  3  4 ; 

XCHG 

o 

STOPS  I UTEPPoLAi'EJ  DATA  POINT 

03-'-'.' 

1 A  i.:  33  7 

LHLD  STRLOC 

o 

03-’-r 

.’3 

MOV  V. ,  U. 

03" ' 

23 

IilX  ti 

0  3  V.  1 

72 

MOV  M , D 

T> 

r.NX  HY  ,i  TO  STORE  i-’.iXT  DATA  POINT 

; 

1  lOV'V. 

LX I  0,5 

0  >  .1 

1  > 

DAD  D 

•  ■'3  / 

SiiLD  SiHiLOC 

ip  prs? 

T-\;OJ  / 

LD\  013(20 

\  ;  ,  * 

• 

[UP  A 

‘■y 

1  >3  / 

ST  A  CTi-  0 

:i :  1  3 

CPI  10 

1) 

- 

REPORT  NO.  NADC-79240-60 

PRNTOUT.PRN 

P / 

« 

0362  C20C03 

JUZ  L  1 SU3LP 

0365  AF 

XL  A  A 

©  0366  32F037 

STA  CTN20 

0369  2  AF  A3  7 

I.IILD  Foili* 

036C  E3 

XCHO  • 

©,  036D  2AE837 

LHLO  STRLOC 

STORE  FI  AS  201:1  POINT 

0370  73 

MOV  M,E 

0371  23 

I  NX  H 

*  0372  72 

MOV  M, D 

C373  1 10500 

LX I  D, 5 

0376  19 

DAD  D 

*  0377  22E837 

SHLD  STRLOC 

RESTORE  STACK  PTR  TO  GET  NEW 

• 

END  PC)  I  ITS  ; 

037A  2AE637 

LHLD  TMPSP 

»  0370  F9 

SPHL 

03  7  E  2AF237 

LHLD  IVAL 

0381  23 

I  NX  H 

0302  22F237 

SHLD  IVAL 

i iA Vc  60X20  Pi'S  BEEN  GENERATED? 

»  0385  3AF137 

LDA  CTS60 

0383  3C 

I  NR  A 

0  0389  32F137 

STA  CTR60 

038C  FE3C 

CPI  60 

038E  C26302 

JNZ  LILOOP 

m,  0391  2AF637 

LHLD  LISV5P 

i  0394  F9 

SPHL 

0395  C9 

RET 

0". 

UJLT: 

ZERO  OUT  MST  1/2  A NS  AND  CARRY  SAVE 

0 

0396  210000 

LX  I  H , 0000 

0399  22C337 

SHLD  AN SM 

•.  039C  22C537 

SHLD  CARYSV 

DETERMINE  SIGN  OF  ANSWER 

#>. 

039F  2AC737 

LHLD  ML TP  1 

03A2  7C 

MOV  A,H 

C3A3  2 AC  137 

LHLD  MLTP2 

i  03A6  AC 

XRA  H 

03A7  32CF37 

STA  SIGN 

;  03  AA  3 COO 

MV  I  A,  30,1 

IF  ML  TP2  <0 ,  ML  TP  2=  !  .1LTP2: 

03 AC  A  •» 

ANA  il 

03 AO  F0OF04 

CM  TCI  6 

'  OjEO  CD/3D4 

CALL  CHK2ER0 

0383  220 1 3  7 

1 

SHLD  ML  TP  2 

1 

i 

: 

—  <  i -■  i  ..  ... 

REPORT  NO.  NADC-79240-60 


-i 


P  Ri.  l  OUT.  PR  N 

- 

0336  PA  O' 7. 3  7 

LI1LD  ML  TP  1 

0339  3SB0 

/.‘.VI  A ,3 Oil 

<* 

IF  MLTP1 <0,  MLTP1*:vLTP 

<k  O'jr-B  A 4 

ANA  H 

03 SO  FC6504 

CM  TCI  6 

03 BF  CD7304 

CALL  CilKZHRO 

•  03C2  22C737 

SHLD  ML TP  1 

SAVE  5P  FOP  RETURN 

o 

0305  21 0000 

LX  I  H ,  0 

03C5  39 

DAO  SP 

»  03C9  22C937 

SHLD  MSVSP 

SET  UP  BIT  COUNT 

9 

03CC  3£i  1 

MV I  A, 17 

03CE  32C037 

STA  CUT 

*  03D1  3! Cl  37 

LXI  SP , ML TP 2 

MLTLP : 

D3D-  2IFFFF 

LXI  H,0FFFF;1 

9  C3D i  39 

DAD  SP 

0303  35 

DCR  M 

0309  CA4C04 

JZ  ML P DONE 

O 

PUT  TEST  BIT  INTO  CARRY 

0  0300  ri 

POP  PSA' 

0300  023 "04 

JiJC  BITO 

3  IT  I  : 

>  03  EC  01 

POP  D 

03 E!  01 

POP  B 

C3E2  El 

POP  H 

© 

D=MST  1/2  a;:s 

B=CA  PRY  SAVE 

U= I ST  MULTIPLIER 

GET  SUM  WITHOUT  CARRIES 

*  03E3  73 

MOV  A , B 

03E4  A A 

XRA  D 

03 c5  AC 

XRA  H 

®  0JE?  -17 

MOV  B, A 

03 E7  79 

MOV  A ,  C 

03 EG  A 6 

XRA  E 

O  03E9  AO 

XRA  L 

03 h A  4F 

MOV  C,  A 

03E"t  31  FAFF 

LXI  11,0  FFFA1  i 

#  OjE;:  39 

DAD  SP 

0?.V.r  F^ 

SPliL 

O 

COMPUTE  NEW  CARRY  SAVE 

03 rO  E ! 

pop  !i 

o  03  FI  ;C 

MOV  A ,  i  i 

0V:  •  i  l 

POP  ,1 

REPORT  NO.  NADC- 79240-60 


prntout.fr.; 

o 

03  F3  A  4 

ANA  il 

03 F4  37 

.AC) V  0,  A 

€>  0  3  F5  7C 

MOV  A, it 

03F6  El 

POP  M 

03 F7  A 4 

ANA  H  ' 

«  03  FT  B2 

Olf A  u 

03F9  57 

MO V  n,  A 

03FA  7C 

MOV  A, H 

•  03FB  2 1  FAFF 

LX  I  i: ,  0  FFFAH 

03FE  39 

DAD  SP 

03FF  F9 

SPHL 

o-  0400  El 

POP  H 

0401  A 4 

ANA  H 

0402  52 

ORA  D 

o  0403  57 

MOV  D, A 

0404  70 

MOV  A , L 

0405  El 

POP  H 

»  0406  A 5 

ANA  L 

040/  5F 

MOV  E, A 

0403  70 

MOV  A  ,L 

«  0409  El 

POP  H 

040A  A 5 

ANA  L 

0403  53 

ORA  E 

040C  5F 

MOV  E , A 

0400  70 

MOV  A , L 

04CE  21  FAFF 

LX  I  H, 0 FFFAH 

m  04  I  I  39 

DAD  SP 

0412  F9 

SPHL 

0413  El 

POP  H 

^  0414  A5 

ANA  L 

0415  B3 

ORA  E 

0416  5F 

MOV  E , A 

0417  El 

POP  H 

1ST.R: 

STORE  NEW  PS(I) 

store:  me w  csd) 

04  18  05 

PUSH  D 

0419  05 

PUSH  b 

04  1  A  33 

OCX  SP 

04  13  3B 

OCX  SP 

0410  01 

POP  0 

0410  Cl 

POP  B 

*•> 

1 

BCDE=PS(  I )  — MUST  SB  SHIFTED  RIGHT 
BY  I 


04  IE  AF 
04  I F  73 
0420  IF 
0421  4/ 
(M2? 

04?  ?  IF 
•  ',424  4i* 
<"*>  0l?5  VA 

04? 6  IF 


XRA  A 

‘.nv  a  , 

A  Ail 

•ov  D ,  A 
•4 ’V  '.,0 

Vf'V  C  t  A 
V.O  V  A ,  D 


SHFT* 
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7  5  7 

,7.0  V  D ,  A 

j  ;  73 

MOV  \,i: 

««  E429  I.’- 

h’Al: 

'■"PA  5F 

.MO  V  E,  A 

J"  C  ^  ^  3 

P  LIU,  1  3 

5s  C  ■■'  2  C  D3 

PUSH  0 

j.-PA)  C3D4Q3 

J.VP  MLTLP 

3  I TO* 

ft 

: 

COMPUTE  PS  C I ) 

*  0430  D 1 

POP  D 

0431  C! 

POP  3 

0432  73 

MOV  A , 8 

04  33  A  A 

XRA  D 

0434  47 

MOV  3, A 

0435  79 

MOV  A ,C 

^  C4  3  o  A3 

XRA  E 

0437  4F 

MOV  C , A 

0433  33 

OCX  SP 

a  0439  33 

DCX  SP 

C43A  33 

OCX  SP 

Q433  33 

DCX  SP 

COMPUTE  CSC  I) 

a  0430  El 

POP  H 

0430  70 

MOV  A, H 

43E  '50 

MOV  E,L 

a  04 3 F  El 

POP  H 

■"'440  *,4 

A*  i  A  H 

0  44 1  57 

MOV  D, A 

<>  O' 442  7:3 

.MOV  A,  £ 

0443  a  5 

ANA  L 

"'444  5  r 

MOV  E , A 

:•■  .43  031  004 

J MP  M5TR 

‘LPDUNE: 

© 

COMPUTE  PS  CM)  +  C 

0  44  4  33 

I  NX  SP 

O  0449  33 

I NX  SP 

0 44.'\  El 

POP  H 

0443  01 

POP  3 

ra  o--4o  09. 

DAD  3 

■j->*o 

PUSH  B 

0443  c5 

PUSH  ri 

©  0  4 4 r  3 AC 93 7 

LHLD  MSvSP 

r>  4  5  r.  r 

SPHL 

DETER  .  IDE  PROPER 

"43  •  a\::-3/ 

l.DA  SUN 

-s  ;3  ■  .*;»>•’ : 

AMI  30; i 

i-O 

RP 

'•-O  '.\0  33  / 

UiLu  ANCC  1 

*»  .0 

XCHG 

'  'AO  137 

L.:L:'  AES'. 

*3 


[•'  PRODUCT 


PhHTOU  T.  Pr<:. 
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O 


04  00 

0 DO 40 5 

CALL  TNOSCO 

0463 

2 PC  1 3  7 

SIILD  AM  ML 

o 

04  66 

Ey 

XCilO 

04  67 

22  C  33  7 

Sil.LD  AiI.'jV. 

04 6 A 

C9 

MET  • 

« 

TCI  6: 

t 

5 SUBROUTINE  TO  TAKE 

o 

5 OF  16  BIT  WORD  ML 

0463 

7D 

? 

MOV  A , L 

o 

04  6C 

2F 

CM  A 

C46D 

oF 

MOV  L, A 

046= 

7C 

,40 V  A, M 

* 

046F 

2F 

CM  A 

0470 

67 

MOV  H , A 

0471 

23 

I  MX  H 

e> 

0472 

C9 

RET 

CHK Zc  RO : 

04  73 

i  c 

X  R  A  A 

0 

04  74 

3C 

CMP  H 

0475 

CO 

■vNZ 

0476 

3D 

CMP  L 

0' 

04  77 

CO 

RMZ 

04  78 

2 1 0000 

LXI  H , 0 

0473 

22C137 

SHLD  AiiSL 

0 

047E 

Cl 

POP  3 

04  7  F 

C9 

RET 

DIVIDES 


DIVIDE  BY  REPEATED  SUBTRACTIONS 
THEM  ROUND  QUOTIENT  TO  NEAREST 


0 

IMTEGER 

0480  21 FFFF 

LXI  H,OFFFFH 

0  0483  22DS37 

SHLD  GUOTL 

0486  22DA37 

SHLD  GUO  I'M 

0 

DETERMINE  SIGN  OF  QUOTIENT 

0489  2AD637 

LHLD  DVSRM 

0  048C  7C 

MOV  A , H 

048D  2AD237 

LHLD  DVMDM 

0490  AC 

XRA  H 

0-  0491  32CF37 

STA  SIGN 

‘ 

IF  DVND<0 ,  dvnd=:dvnd: 

0 

0494  7 C 

MOV  A  f  H 

0495  E680 

AMI  MO II 

0  H497  F2APQ4 

JP  CKDVSR 

04 9 A  HR 

XCHG 

C49D 

L’il.D  OVMDL 

*  04  9,-;  CDC’RC'J 

CALL  i'WOSCOVP 

04 A 1  22D03/ 

Slil.D  C'VMDL 

04 A 4  EM 

XCHG 

0  04  A 6  22023 7 

SHLD  UVNJ,V, 

I 


3f:;:ro  rr.  ppm 
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I' AGE  I  2 


» 

0  A  A  j  .”A.j6  3  / 
A  -  7 

»  j-.-G  uo-iO 

O-A r'*3f;04 

>l[-l  cB 

»  0-32  2AJ437 

3435  C DO 40 5 
•3433  22D437 
%  04  35  E3 

04,30  22D637 


;  I  r  DVJRO ,  DV3R-  lUVSIl ! 

LilLC  DVG.iG 
•iov  a  , :  i 
AMI  BOH 
JP  DOCKS 
XCHG 

LHLD  DVSRL 
CALL  TWOSCO.MP 
SHLD  DVSRL 
XCHC 

SHLD  DVSH/4 

DOCKS? 

;  IS  DVSFi  0  OR  I  ? 


9 

04?F 

E3 

XCHG 

04  CO 

2 A3 43 7 

LHLD  DVSRL 

04C3 

EB 

XCHG 

0 

Q4-C  - 

Ar 

XRA  A 

V-C5 

B4 

ORA  H 

04  C  6 

B5 

ORA  L 

■s 

^  /  P7 

• 

52 

ORA  D 

04C3 

C2D404 

JMZ  CKDNO 

0  4 ^  3 

53 

ORA  E 

CA0305 

JZ  DI '/ZERO 

04CF 

FEO  1 

CPI  1 

"'4DI 

CAED04 

JZ  DIVOME 

<9» 

CKDKOs 

; IV  DVND=0,QUOT  =  0 

0A04 

AF 

XRA  A 

0405 

2AJ237 

LHLD  DVN’DM 

0 

04  DO 

EB 

XCHG 

0409 

2A3C37 

LHLD  DVHDL 

34  r  0 

52 

ORA  D 

G> 

/-k  •  r\  ", 
./<•■ _ •* 

B3 

ORA  E 

O-tOE 

o4 

ORA  H 

04PF 

B5 

ORA  L 

9 

C23S05 

JMZ  SETUP 

GUO  TO  s 

04  z  3 

2  1  0000 

0 

* — « 

X 

_l 

A 

n  ;  -A 

P40A37 

SHLD  GUOTM 

•04=9 

223537 

SHLD  GUOTL 

^  H  'w 

09 

RET 

O 

DIVOME: 

if  i7vsn=i , guot=dvmd 


f 

LHLD  I3Vin.V, 

04=  3  2  Ai32 3 7 

-4F0 

XCHG 

9 

'  =  ;•  i  2  .UK  17 

LHLD  Dv'MJL 

4  !:4  3ACFJ7 

l.DA  ;.i  I  ■  ■ .  1 

g  ’-F  7  '  A 

XRA  D 

9 

■•!-  ;  FOG 40  j 

CM  TKOSCO.'P 

r*S 

' * -i *■;>  22)03  7 

BliLD  uUofL 

I 
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XChfJ 
::i  ii_ \>  . 
lil:  T 

UI /ZERO: 

m.  r 

troscomp: 

t 

i  suyaouTinn  !  Ai:=£::  2's  comp. 

50i*  32  HI  To  i..’  ucnL 


0504 

ID 

MOV  A,L 

0505 

2F 

CO  A 

0506 

C60  1 

ADI  1 

0503 

6F 

MOV  L , A 

0509 

7  C 

3,0V  A  , ,  i 

050 A 

2F 

CM  A 

0503 

C  EG  0 

A  Cl  0 

0500 

67 

MOV  H , A 

Q5CE 

75 

MOV  A , E 

C5CF 

2F 

CM  A 

0510 

CE.70 

AC  I  0 

0512 

^3F 

MOV  E, A 

051  3 

7  A 

,10V  A, D 

*J  i  4 

2F 

Cl  A 

95 1  5 

CEOC 

AC  I  0 

051  7 

o7 

MOV  D, A 

0515 

('? 

RET 

[MCGIJOT : 

I. ICR.  UUOT  ..'ITH  EACH  SUCCESSFUL 
SUBTRACTION 

0519 

7 

LHLD  CUOTL 

05  1C 

7D 

MOV  A,L 

05  1n 

C60  1 

ADI  1 

051  F 

oF 

MOV  L,A 

0520 

7  C 

MOV  A, H 

0521 

CEOC 

ACI  0 

0523 

67 

MOV  1  i , A 

0524 

32JS37 

SHLD  QUOTL 

0527 

2AJA3  / 

LHLD  OUOTM 

052  A 

70 

MOV  A ,  L 

0523 

CECO 

ACI  0 

0330 

6r- 

MOV  L, A 

0522 

70 

MOV  A, H 

C'j2F 

CEOC 

ACI  0 

0531 

67 

MOV  H, A 

0532 

220A37 

SHLD  OUOTM 

0336 

C9 

RET 

5  El’ UP  • 

SET  0V5,;=  -JVSk  i’O  JO  SUHThACi  10? 

o-j3>*’ 

3  \06.3  7 

LHLD  JVSRM 

0  >5  • 

1:3 

Mono 

3 A..  >5  / 

LHLD  DVS.iL 

0330 

003  'O-j 

CALL  i'AOSCOVp 

0640 

M 

vov  fi,h 

PRIiTOtJT.Hhii 

04 FE  an 
04  Fi*  22DA57 
0502  09 

0503  76 


I 
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,'.\i  )'J 7.  H<ii 


• 

I 

U I  /LP  s 

MOV  C ,  L. 

0  j  1  305 

CALI.  I  HOOK 

"■O'-O 

,;A303  7 

LrILD  L)Vii  ;L 

'  'l  - 

?2~C37 

3 !IL0  HEAL 

■  -  i  .  ^ 

DAI )  6 

-• 

2 >003 7 

JrlLL)  DV ; : JL 

0  'J > 

2  A 02 3 7 

LULL;  DVLJM 

JS’Di 

22^337 

3HLD  .95;.;.: 

05  55 

*■*  r> 

/  L/ 

MOV  A, L 

3o5o 

35 

ADC  3 

% 

Oo57 

5F 

,/OV  L ,  A 

055  3 

7C 

MOV  A, H 

0559 

» 

•  v  0\ 

ADC  D 

055  A 

67 

MOV  ri ,  A 

0  55  3 

225237 

SHLD  DVMDM 

055E 

5A4205 

JC  DIVLP 

o 

05  51 

2  A 0C3 7 

LHLD  9b ML 

*>  /.  * 
j 

7  J 

MOV  A , L 

0555 

I  7 

RAL 

*> 

0566 

y  r 

MOV  L, A 

0567 

7C 

MOV  A  , H 

..  3  0  0 

1  7 

RAL 

& 

055? 

67 

MOV  H,A 

056 A 

220C37 

SHLD  REAL 

2ADE37 

LHLD  Rb.v. 

© 

■0570 

ID 

MOV  A ,L 

0571 

1  7 

R  AL 

'  575 

or 

MOV  L , A 

j  57  3 

7  C 

MOV  A ,H 

3574 

i  7 

RAL 

^575 

67 

MOV  H, A 

© 

-✓  /  2 

220337 

SHLD  Rbv: 

057  5 

3AJ037 

LHLD  REAL 

057  0 

0  v 

DAD  n 

© 

2 AO 33 7 

LHLD  ,fcv. 

f)-  ^  *N 

T 

MOV  A , L 

050 1 

3  3 

A  DC  E 

05  A  < 

*7  '> 

MOV  A, a 

05.33 

J  > 

^  A 

A  w  u 

—\  .0  I 

, 

_  0  1  V  .0  3 

■~C  I. .CO.  :7 

© 

0557 

2D  Dr  31 

LDA  Si  CO 

n.A  .•  • 

*  .  >  ^ 

A .  •  I  wO  ti 

..  ^ 

*> 

O.P 

© 

->  .  .  J 

?.;D.\37 

LHLD  050  7.. 

35  v  ' 

cH 

\CHC* 

c-.  0 1 

3 A0 53 7 

LHLD  OC.;:_ 

© 

0594 

co  040  3 

CALL  tamo: 

O^-V  * 

J5  j  7 

Si-ii.O  0  -  _ 

T  *;  '•  - 

^  ‘ 

.\  C  1  V  ■ 

')  •  • 

00 J A3  7 

SHL?  00m  : 

^  .  ■  ■ 
j  J’  / 

'  } 

:\H  i 

l‘  •  s 

© 

» 

:  AOi  I 

;:i:i  \L  \L7‘  . 

•  • ;  • • 

•  »  -  ***  ^  ‘ 

:  •  a  i  *  • ' 

.{!'••  '  J  >  ' 

o 

o 
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PPNToUT .  PPM 

e 

Ob  A  1 

112142 

LX  I  ) ,  i •  (  3 i )2 IT 

CaA4 

CD05r0 

CALL  5DOS 

o 

05  A  7 

1 1 0000 

GET  ALT: 

LX I  5,30:1 

03  AA 

0E09 

i-iV  I  c,-Fi<iin 

c 

03  AC 

crx)5oo 

CALL  BOOS 

05  AF 

OEOA 

i<DAi:r : 

,.ivr  0,  I  ML  I  NE 

o 

0551 

1 1 604 1 

LXI  O.INBUF 

05B4 

C DO 500 

CALL  oOOS 

05  =  7 

216141 

LXI  H, I NBUF+ 1 

© 

05  c  A 

7E 

MOV  A ,  M 

05  R3 

rEOo 

CPI  6 

0550 

4F 

•10  V  C,  A 

© 

05  BE 

'.22107 

JNC  AlNVcNT 

0501 

23 

I  NX  ri 

05  C2 

CD3906 

CALL  AS BOD 

© 

03  05 

DA2I07 

JO  A INVENT 

02  OR 

116141 

lxi  o,i:js;jf+i 

0505 

1  A 

LDAX  D 

0500 

1  3 

IMX  0 

r>  f>’  *> 

L  — '  >  >  3-.' 

0605 

5  Jl  5 

05  OF 

0E05 

4V  I  0,3 

© 

0551 

2  1  7  44  1 

LX I  H , I N3UF+2 

0504 

C  DC AC c 

CALL  PPEP 

0557 

217441 

LXI  H, I N3UF+2 

o 

Oul.'A 

1 1 0000 

LAI  _o,0 

0555 

ODE  106 

CALL  TMTH0U5 

05EC 

223641 

SHLD  ALT 

© 

C5E3 

01 4F39 

LXI  3,-13001 

05E6 

09 

DAD  3 

05E7 

DA2107 

JC  A INVENT 

© 

05  EA 

0E09 

;GET  SPEED 

MV I  C, PRINT 

05EC 

1  1 A ECO 

LXI  D, 0 AEH 

• 

05EF 

C DO 500 

CALL  3D0S 

05  F2 

116041 

RDSPEED* 

LXI  D , I H3 UF 

05F5 

OEOA 

m V I  C, INLINE 

05F7 

C  DO  5  00 

CALL  3D0S 

0  3  F  A 

216141 

LXI  H, I N3UF+1 

05  FD 

7E 

MOV  A , M 

0*5  Fz 

FE04 

CPI  4 

0600 

4F 

MOV  C , A 

m 

CcOI 

522907 

JNC  S INVENT 

w  oC  ^ 

23 

I  NX  H 

■  -  05 

CDH90O 

CALL  ASECD 

m 

ZtO  fi. 

DA.7907 

JC  S INVENT 

1  1  6 1  4  1 

LXI  J,  I  M31JF+ 1 

LDAX  0 

1  .NX  n 
o  L'  I  3 
'VI  C,3 

LX  1  ii,IN:J'JF+20 
'A I.!.  PREP 

lx  i  ii,  i:;:ujf+2o 
LX  I  !),0 
-•.ml  iU;;js 


3 
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:J  r  :  j  *  ' 

>JT.  Pi'; :  i 

062.  J 

2  2,  >34  1 

C-> r ! L T j  oPLc.J 

0-i  26 

•' )  1  A  7  F : ) 

LX  I  0,-601 

<a» 

•0629 

ov 

DAD  3 

_•  *">  * 
wJ  «"  /*. 

Jr  .  '  07)  7 

jc  or.Tv'h.n 

06  20 

20064 1 

LHLD  ALT 

C\ 

.J 

0  I  6009 

LX  I  .3,- 11000 

06  33 

09 

0A0  B 

0634 

.0  A3  206 

JC  T4PT5 

a 

0c  3  7 

A  B64  1 

LULL)  ALT 

06  3  A 

019053 

LX I  3,-6000 

0630 

09 

DAD  3 

0635 

02  A  50  6 

JNC  T 1  PT5 

0641 

2  A 3 34  ! 

LHLD  SPEED 

06  44 

0  i  1  0  FF 

LX I  3,-240 

* 

0647 

09 

DAD  B 

0648 

02 A B0 6 

JNC  T1PT5 

06  4  3 

2  1  1  600 

LX  I  H, 22 

0643 

220737 

SHLD  ML TP  1 

065  ! 

2AB34 1 

LHLD  SPEED 

0654 

22CI37 

SHLD  MLTP2 

Co  ^7 

00?  60  3 

CALL  .MULT 

06  5  A 

2A384 1 

LHLD  SPEED 

29 

DAD  H  ;  2X 

« 

0653 

220037 

SHLD  DVHDL 

066  i 

2  1  0000 

LX I  H, 0 

0o54 

220237 

SHLD  DVNDM 

© 

0667 

220637 

SHLD  DVSSM 

66  A 

2 1 0A00 

LX I  H, 10 

O  *>C  — 

220437 

SHLD  0V3PL 

t* 

0670 

CDS 00 4 

CALL  DIVIDE 

;GJOT  =  .2X5 
; CALC.  22.2XS 

0> 

06  /  o 

2A0337 

LHLD  QUO EL 

0676 

ho 

XCHG 

06  77 

2 AC 137 

LHLD  ADSL 

06  7  A 

1  9 

DAD  D 

sj  6  "7 

2201 37 

SHLD  Ai'iSL 

0675 

2  A  3  34  1 

LHLD  SPEED 

3* 

06  HI 

2  A 

DAD  H 

0682 

220037 

SHLD  DVHDL 

06  85 

2 1 0000 

LX I  H, 0 

o 

06  83 

220237 

SHLD  DVHDM 

Go  -7 

220637 

SHLD  DVSP.M 

06'.: 

2 1 o4Q0 

LX I  r  1 ,  1  GO 

o 

Oo?  1 

220437 

SHLD  DV5.0L 

069  -i 

CO 3004 

CALL  DIVIDE 

0697 

2AJS37 

LHLD  UUOTL 

s> 

•T  o A 

lI  _• 

XCHG 

On  A 

3  AC i 3  7 

LHLD  ADSL 

..'O  -n 

1  9 

DAD  0 

» Hi.  =  22 . 22  XSP 

S  o' •  y 

1  !  7 

I 

LX  I  0,-19333 
DAL)  D 

XC.lG 

5* 

..^3 

v5 

*  .* 

’  A  3o4 1 

LHLD  ALT 

>j.‘  i 

1  9 

p  A  p  ' ) 

n» 

,  * 

9  v 1 

JC  !'■).’ ij 

T I  P  i\> : 


— 
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pentout. pen 

'  '  *  '  ■  •  / 

V 

- 

1 

06  A  B 

2  1  j.302 

lx r  .i.ooo 

1 

06  A  i: 

22B44 1 

Bril. I;  POUF  I'M 

• 

06  B! 

C9 

R  r:"T 

» 

i  4P  •  1/  5 

1 

06  B2 

21 0807 

LX  I  !!•,  1  300 

© 

06  B  5 

223  44 1 

SnLD  S-*_;r:;-T-i 

06  B8 

C9 

r*  i-  i  , 

; CONVERT  .0,011-3  BIT  BOO 

© 

ASBCO: 

06  E9 

7E 

MOV  A,  M. 

. 

06  BA 

FE30 

CPI  3 OH 

& 

C6BC 

:>a 

RC 

•06  ED 

FE3A 

CPI  3 AH 

06  EF 

3F 

CMC 

© 

06C0 

D3 

PC 

JOK  IF  RET-'. 223  0,9 

06  Cl 

Do  30 

Sul  BOH 

» 

06C3 

77 

,-.ov  .;,a 

06C4 

^3 

I  i  iX  1 1 

j 

•06  Co 

OD 

DC*  C 

© 

06C6 

C2E906 

jnz  as 3 cd 

06C9 

C9 

S  is : 

PREP: 

© 

06CA 

PECO 

CPI  0 

06  CC 

CAD 30 6 

JZ  PEEP 2 

:.6CF 

3600 

M  V  I  M, ,  0 

© 

0601 

23 

I  NX  H 

06D2 

3C 

LIP  A 

[ 

06  D3 

OD 

DCR  C 

© 

06  D4 

C2CA06 

JNZ  PREP 

06  D7 

C9 

RET 

PREP2: 

© 

06  D3 

1  A 

LDAX  D 

06  D9 

.77 

MOV  M , A 

05  DA 

1  3 

I  MX  D 

«*• 

06D3 

23 

i;:x  h 

06DC 

OD 

DCR  C 

06  DC 

C2D806 

JNZ  PREP2 

O' 

0620 

C9 

RET 

t 

; convert  s  bit  3cd  to  hex 

o 

$ 

TNTHO US i 

06  El 

7  E 

MOV  A , M 

06E2 

23 

I  NX  H 

0oE3 

FED  2 

CPI  2 

06  E5 

OAECGo 

JC  TNT CUT 

06  EB 

El 

POP  H 

06  E9 

C3210  7 

JMP  A  INVENT 

T  NT  S  NTs 

Do  EC 

FED  1 

CPI  1 

06  HE 

C2r4'.''  6 

JNZ  iD U) US 

DM 

1  11027 

LX  1  0,10000 

r.HOi.J: 

Oc  f*4 

}  • 

4  n 

00 V  A., 

Ocl-'n 

23 

i::x 

'  0S 

;•  6 

0 1  ^.-'03 

LX  I  ,1000 

1 

| 

Oor9 

C !  1  J  / 

CALL  3'JDHuX 

'  o*. 

REPORT  NO.  NADC- 79240- 60 

PP:1T'>  IT.  i 

PACE  iy 

♦ 

03  ID  E'J 

XCHG 

s 

•  o*::-";  7_ 

MOV 

'ic.T  23 

IilX  : ! 

6  rr  .1 1  340  ) 

LX I  3,100 

♦  077.2  CO  15  )7 

CALL  2 0 J;  1 2 a 

0700  23 

XCriG 

7 

W4I  O  • 

0706  /2 

MOV  A, 7 

0707  23 

I  MX  :-i 

0703  0I0A00 

LX I  2,10 

~  07 Or-  CO  1307 

CALL  BCDHEX 

070-  23 

XCHG 

l 

JfilTSs 

-  070?  72 

MOV  A» M 

0710  23 

I  NX  H 

0711  010100 

LXI  5,1 

♦  0714  001307 

CALL  aCDrlcX 

0717  09 

RET 

L 

JCJHEX* 

•  0713  23 

XCHG 

!  auLP* 

0719  ?200 

CPI  0 

07  13  C3 

RZ 

07  1C  09 

DAD  5 

0710  30 

DCS  A 

•  0712  03 1907 

JMP  BHLP 

1 

U.TVEHT : 

I!» VALID  ALTI7UD2  ENFERcD 

0721  3204 

MV I  A, 4 

•  0723  0003? 3 

CALL  0P303H 

1  0720  0.3AF05 

JMP  RDALT 

1  3 I JVrMT  : 

1.1  VALID  SP22D  EJT2R2D 

«►  C  Tv  3204 

MV I  A, 4 

0723  C PC 323 

CALL  0.-303 H 

0722  C3rP.05 

JMP  PD3P22D 

[MZHE'-'-O: 

0731  0504 

MV I  3,4 

r.'ZDMLP : 

<*  07  33  0  —  1  *-■ 

MV I  C, READ 

0733  114242 

LXI  D, FC3DEM0 

*7  "*  •»  / '  ^  ■>  "  /%*y 

V.'  /  -3  >  s./  J 

CALL  3005 

"  0732  0209 

MVI  C,PRI.!T 

073:  113000 

LXI  J,  JO! 

0/42  COO 3 00 

CALL  P.DoJ 

-*■  07-3  05 

DC .3  rj 

0744  0 23 30 7 

Ji.'Z  I JZn.'.LP 

0  »  • •  -  » 

.(Li' 

• 

:J  .27: 

.'VI  C,CoN I.i 

.'/•  \  CCO'-WC. 

CALL  .A10J 

/»  *  /  .  »  :  • r  J 

;PI  'h' 

JZ.  ,-JLCi 

! 
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PMiTnUT.  Pkil 

© 

0752 

3c7F 

MV  I  A,  /HI 

0754 

0003.-4 

CALL  0.-b07;! 

« 

0757 

034807 

JM8  ESAu/ 

.  ( A  I  i  I  :  ■  J  • 

075  A 

00 

MOP 

© 

McHli: 

0753 

00 

,'i  0  P  ; .  •  A  I  f  :*  ( y . '  I .  i  —  R 1  •'  1 J  P 1 

ScOSRT: 

© 

075C 

2A3A4 1 

LHLD  IFTCMTR 

07  5  F 

23 

I  NX  H 

07  60 

22BA4! 

SliLD  lUTCiiTR 

o 

0763 

228542 

SiiLD  PHEPHIIsT 

0/66 

318F37 

LXI  SP tS-!ccD30 

0769 

217607 

LX I  n , JMPSTRT 

Cf 

076C 

3AF44 1 

LDA  5ECIM0X 

C  76F 

4  r 

mI  )  V  C  i  A 

0770 

0600 

j-'iV I  3,0 

© 

0772 

09 

DAD  2 

0773 

09 

DAD  3 

0774 

09 

DAD  3 

© 

0773 

£9 

PCriL 

JMPS7RT: 

0776 

C3 A 40 7 

j.vp  hjctetu 

e 

0779 

C3AC07 

jmp  ctpltrt:; 

077C 

038903 

J.mP  RX75EQ 

077F 

C33A0A 

JMP  PARSER 

© 

EJECT: 

C782 

315F37 

LXI  5? , MEHD30 

0785 

3£04 

MV I  A, 4 

© 

0787 

CD03F2 

CALL  0F303H 

07  3 A 

3 HI  5 

MV I  A, ESC 

07  SC 

■0003  F  3 

CALL  0F803H 

© 

07SF 

3£3D 

-  'MV I  A ,  '  =  ' 

0791 

CD03F-3 

CALL  0F803H 

0794 

3  £2  1 

MV  I  A , 2  1 A 

©> 

0796 

CD03F3 

CALL  0F803H 

07  99 

3  £4  7 

MV I  A, 4  7H 

0793 

CD03F5 

CALL  OF 80 3H 

• 

07  9  £ 

2  1  0000 

LXI  H,0 

07  A  1 

228A4 1 

SHLD  I  NTCiUR 

5JCTRTU: 

e> 

07A4 

0E06 

MV  I  C ,  6 

07  Ao 

C Du 40 7 

CALL  SUUIB 

07A9 

C3C907 

JKP  DRIVER 

c* 

CTPLTRTN: 

07  AC 

0£02 

mV  I  C ,  2 

07AS 

CD340 / 

CALL  SQUIB 

• 

0731 

C3C907 

JMP  DRIVER 

SQU  1’8: 


0/84  3 EO  A  MV  I  A,  OAM 


.-/To 

CiX)3rJ 

CALL 

OF  60  3!  I 

0734 

3  EOS 

MV  I 

A,  US 

07 1;:; 

CT)8F;5 

CALL 

OF  80311 

*‘7  •  ’ 

1  f  ' 

3 ERA  7 

mV  I 

A,  LUf 

07  CO 

Cl'OEFM 

CALL 

01-80311 

0703 

OD 

DC!-; 

C 

07C4 

C2340 / 

J!(L 

SOU  1 3 

07  C/ 

C9 

RE  r 

& 
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r*::-rp 

JUT.  f'R.i 

a 

.'"/Co 

C9 

I  »•!  • 

RET 

% 

•7cy 

3 AH  44  1 

DIM  V  Eli: 

LI)A  SEOl.iJX 

/a: 

4 

MOV  C,A- 

S> 

07  CD 

O-jOO 

MV  I  8,0 

07  Cr 

2  1  060  7 

LX  I  !l,L»i(7RC;: 

0702 

09 

DAD  2 

■% 

0703 

09 

DAD  3 

07D4 

09 

DAD  8 

07  Db 

£9 

PCriL 

% 

07D6 

C3DF07 

DRVRCK: 

JMP  DRCKA 

Q7D9 

C30303 

J HP  DRCK3 

07  DC 

C 33 508 

DRCKAs 

JMP  DRCKC 

Q7DF 

2A3A41 

LHLD  IMTCWTR 

07E2 

0IF5FF 

LX I  B,0FFF5H 

07=5 

09 

DAD  3 

07  E6 

DA0003 

JC  3503 

% 

07  E9 

3Ei  B 

MV I  A, IBS 

07  E3 

CD03F3 

CALL  0F803H 

07  EE 

3E3D 

MV I  k,'  =  ' 

o 

07  F0 

CD03F3 

CALL  0F303H 

07  F3 

3E21 

MV I  A ,  2  1 H 

07F5 

CD03F8 

CALL  0F803H 

Sfc 

0  7  F  3 

3E47 

MV I  A, 47H 

07  FA 

CD03F3 

CALL  OF  60 3H 

7FD 

C35A07 

JMP  WAITING 

A 

0300 

3E0  1 

S3C‘3s 

c 
*— « 

> 

<• 

0302 

32 F 441 

ST A  SEQINOX 

0 505 

C  o  k->  AO  7 

DHCK3* 

JMP  WAITING 

CSC  3 

2  A3 .44  1 

LHLD  IMTCNTR 

03  OB 

01  EBFF 

LXI  3, OFF E5H 

0303 

09 

DAD  3 

33CF 

DA2903 

JC  SSQC 

• 

^312 

3EI  3 

MV I  A,  1  Sri 

?3I4 

CD03F3 

CALL  0F803H 

0317 

3E30 

MV I  A, /=/ 

• 

03  1  9 

CD03F3 

CALL  0F803H 

OS  1C 

3  £27 

MVI  A , 2 7H 

03  IE 

CD03F3 

CALL  OFS03H 

<t» 

032  1 

3E4  7 

MVI  A ,  4 7. i 

0323 

CD03F3 

CALL  0F303H 

0326 

C35A07 

JMP  WAITING 

• 

OJ2? 

3  £01 

SSQC: 

MVI  A, 1 

0323 

3 2 DC 4 1 

ST  A  RKTFL  'O 

:  V2.1 

30 

I  NR  A 

3  2  F 

32 F  44 1 

ST  A  SEQI.iJX 

,’O.T' 

.3*jA0  / 

JMP  WAITING 

■  • '  3  *7 

3A1H74  1 

JI.'CKC : 

L DA  RNTFLG 

'  >  J  • 

:0I 

CPI  1 

0» 

7  .**;  • 

0  \Ml;.OS 

JL  AiJJCNJ.: 

■  :  ;‘i 

doc 

CALI.  r’Nii"  "LN  1 

I 
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pRiiToux.f-i-.:: 

o 


0U40 

CL»;i30  0 

CALL  8:v0n.iJ2 

0343 

3 A 36 4 2 

L! :-A  L.iCilTR 

o 

0846 

3D 

.JC){  a 

3647 

3D 

jCR  A 

0848 

32  86 5 

3TA  LmGNTR 

e 

0645 

=2540  ' 

JR  FI XCOiJT 

03“  .6 

0 1  *0  cJ 

CALL  ToF 

083 1 

GDI  AGO 

CALL  PRHTHDR 

• 

FI  XCOiJT: 

0354 

2 A3 A 4  1 

LHLD  IWTCiJTR 

0857 

01 AfcFJ 

LX  I  6,-600 

© 

085A 

09 

DAD  B 

0356 

DA6 1 0 3 

JC  SSjD 

085c 

C35AC7 

JMP  WAIT 1 :  1G 

o 

SSODi 

086  1 

3E03 

MV I  A, 3 

0363 

32F  44 1 

3TA  S6Q IMDX 

o 

0866 

OHO  1 

MV I  C. 1 

066  0 

GD34C 7 

CALL  SO HI  3 

C36B 

C33ACA 

JMP  FALSER 

© 

ADJCiITR* 

086c 

2A3A4 1 

LHLD  INTO NT R 

0371 

2232-4  i 

3HLD  TVLiTYFV 

e 

0374 

2  1 0  C  “  0 

L  X I  H ,  0 

0877 

223A4 1 

SiiLD  I  NTCNTR 

03  7  A 

A  ZT 

XRA  A 

© 

0376 

3 2304 ! 

S  i  A  RX  i  FLG 

037  E 

C35A0  7 

JMP  WAITING 

R  iCFST  Ms 

© 

0881 

0H0  2 

MV I  C, 2 

0883 

CD5407 

CALL  SQUIB 

0686 

C3C90  7 

JMP  DRIVER 

o 

RXTSEQ : 

0889 

3ABC4 1 

LDA  R  XT  FLG 

08  80 

Fed 

CPI  1 

• 

083E 

CA3103 

JZ  RKrSTM 

CXPCHM: 

0891 

2ABA4 1 

LHLD  INTCiJTR 

o 

0894 

1  10302 

LX I  D, 520 

0897 

7  A 

MOV  A, D 

0393 

60 

CMP  H 

e 

08  99 

C2A3G3 

JNZ  I  NR AT DT A 

0S9C 

0E01 

MV  I  C, 1 

0898 

73 

MOV  A , E 

© 

089  F 

60 

CMP  L 

03  AO 

CC3407 

CZ  SQUIB 

INWATDTA: 

4» 

03  A  3 

3606 

MV I  A, 6 

08  A  5 

o  i  oc  :o 

LX I  6,0 

08  A  6 

2103  1 

LX I  H,4IC3H 

• 

08  A  6 

,'.260-  1 

SHL.O  VS  INP 

ni.OOp: 

•**  i  •  ’ 

•  »  >  •  1 

J  .  •.:>/.  *•  1 

L.iLf)  VSPi'R 

081  1 

JV- 

'  'AD  i  j 

o  no 

:>3 

i  :x  i? 

08:;8 

\>  i  • 

.•OV  6 ,  M 

© 

O'.,.: 

)  ; 

I  NX  ;i 

>>'’!>■> 

-'O 

MOV  D,M 

© 
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i  V. .  * i ' 

.ui'.pro 

')  -.f-j 

2  A 804  1 

L.iil.O  VSIOP 

0 'i  '  iV 

SPilL 

On::A 

2 1 0200 

LX  I  n,2 

•  ■if;:) 

DAD  SP 

j  r-.E 

22.;  >4  1 

SHLD  Vsr.iP 

*  'Y>l 
-■  /■<  I 

ri  Li 

OCX  li 

'}  ( ;  > 

23 

OCX  /l 

0BC3 

0? 

DAD  3 

oac4 

03 

I  OX  3 

08C5 

r  9 

SPh'L 

03C6 

23 

XTrlL 

.■% 

03  C7 

19 

DAL)  D 

03C8 

23 

XCHG 

q£C9 

E3 

XT  ML 

03CA 

23 

I  OX  11 

03C3 

23 

I  OX  H 

05CC 

73 

MOV  M , L 

« 

03  CD 

23 

I  OX  H 

0  5  C  c 

72 

ln()V  M  t  D 

0  30? 

30 

DCS  A 

Go  DO 

C2AE03 

JOZ  I0LCX)P 

J  i-  J 

2A324I 

LHLD  VSPTR 

o  p.  ^ 

09 

DAD  3 

03D7 

223241 

SHLD  VS PIS 

0SDA 

2 AC  44 I 

LHLD  YSU.M1-2 

#*\  •'  T*. "  \ 

U  ■-  L’-> 

223A42 

shld  PSEPsnrr+2 

.ft 

O3H0 

2ACS4I 

LHLD  PSUMI-2 

0SE3 

223C42 

SHLD  PSEPSINT+4 

7326 

2ACC41 

LHLD  RSUM1-2 

■a 

GsH9 

225242 

SHLD  PSEPRIMT+6 

03  70 

2AD04 1 

LHLD  YSUM2-2 

3SEF 

229042 

SHLD  PREPSIOT+3 

05r2 

2  A.  044  1 

LHLD  PSUM2-2 

3 

229242 

SHLD  PREP R I NT +1 0 

'■  -> 

JO .  ; 

2 AD 34 1 

LHLD  R SUM 2- 2 

a 

C'oF3 

229442 

SHLD  PREPRIMT+ 1 2 

03  F  2 

3 1 dr37 

LX I  SP, 02ED30 

7  KTCOMT 

: 

O/Oi 

C  7.0  A0  9 

CALL  UP DAT 

/■>  >p,  • 

CDF 30 9 

CALL  COTRLAO 

.1  ••  0 "/ 

C3C907 

J DRIVER 

« 

090  A 

2 i oooa 

l/P  DAT* 

LXI  H , 0 

0900 

39 

DAD  SP 

4i» 

• '  j  ^  ■  _* 

22F641 

SHLD  SAVE 

09  1  1 

3  I  Co 4  1 

RES  10  s 

LXI  SP , YSUM 1 

0-;  i  ■; 

01 

POP  D 

r:  ^  i  i* 

2A2A4 1 

LHLD  YAOR 

•iJ  1  0 

CDjf-09 

CALL  UP LOO 

0'.'  i 

2.22A4  1 

SiiLi)  Y A « • ; ; 

22DJ4 1 

SI  A  YAIN'J 

[:  1 

POP  0 

*» 

01 

POP  u 

•  •  ^ 

o  \ i 

LliL  J  1 0  li. 

'7/  \ 

CLL>.X/9 

CALL  UiM.o.J 

.•’2s  04  1 

SOLD  PtC.iR 

-4  i 

HI A  PCiOC 

REPORT  NO.  NADC- 79240-60 


?  r<i .  i  p  >' .  ■ 

tt 

09  2  f  di 

POP  U 

0930  Dl 

pop  D 

o 

09.31  2  A  EL  4  1 

LiiLU  ROLLR 

0924  cdnlop 

CALL  UPLOG 

0937  22  Lb';  i 

5HLD  RoLLR 

c 

09 3 A  32DF4I 

51 A  FLING 

C93.0  3 1  i£24  1 

LX I  58,031 

0940  Cl 

POP  3 

«> 

0941  tl 

POP  rl 

0942  3ADD4I 

LDA  YAIiiC 

0945  2F 

CM  A 

© 

0946  3C 

I  NR  A 

0947  CDDF09 

CALL  I;iDIo 

09 4 A  E3 

XTHL 

0945  3ALH4! 

LDA  PCINC 

0942  CDDFC* 

CALL  INDIS 

09  51  E  3 

XTHL 

«•> 

Gv32  -5 

PUSH  H 

0953  01 

POP  3 

C954  =1 

POP  ri 

© 

09  55  3ACF4! 

LDA  PL  INC 

0  953  2  F 

CM  A 

0959  2C 

I  NR  A 

• 

09  5A  CDDFC9 

CALL  INLIS 

0950  E5 

PUSH  H 

095E  2AH241 

LHLD  D31 

© 

0961  3AD04 1 

LDA  Y A I NC 

0964  C0DFC9 

CALL  INDIS 

0967  C5 

PUSH  3 

© 

0963  E3 

XTHL 

C969  D  1 

POP  D 

C96A  Cl 

POP  B 

© 

0963  3A0F4I 

LDA  RL I NC 

096c  CDDFC9 

CALL  INDIS 

0971  05 

PUSH  3 

© 

0972  33 

DCX  SP 

0973  33 

DCX  SP 

0974  E3 

XTHL 

© 

0975  3ADE4 i 

LDA  PCINC 

0973  2F 

CM  A 

0979  3C 

I  NR  A 

c 

C97A  CDDFC9 

CALL  INDIS 

C  9  /  0  c  3 

PUSH  H 

C97E  3AF341 

LDA  TOGGL 

© 

090 1  r EG  1 

CPI  1 

0933  02A209 

JNC  UPDON 

0986  2AL241 

LHLD  D31 

Q9R9  229 '*'42 

SHLD  PHcPRINT+U 

G9SC  2 Ac 44 i 

LHLD  D32 

09 8 F  22984  2 

SHLD  PREPRINT* 16 

o 

G-.  y 2  2ALo-'-  i 

LHLD  D33 

0996  ?;>9A4' 

SliLD  PNIiPlil  N7+1  •: 

0v9N  30 

T  *  *  > 

L 

% 

0vP9  3280*1 

ST  A  700CL 

CHH-’C  310241 

LX  T  ,  Y5UM2 

09‘M:  C3M09 

J.’.'P  r.ESIL) 

o 

).  J  • 

09 A 2  2AL.-’ «  1 

LHLD  1)3  1 

© 
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,yr.  22  /C4?. 

SiiLD  PPc:Pf a 

:j  f+20 

j/.‘  .  2  A  £44  1 

L!  1L.L7  032 

•y.A;  279E4> 

•'.OLD  PP c? A' ! 

:!  1+22 

_>  y  *•  z  2.\ —o4  1 

l::lo  033 

jyj!  2  ?.t\')£-2 

BOLD  P;<L9  9r 

i.1+24 

O'D*  Ar 

A.; A 

0?  "i'5  32rD4  1 

ST  A  OoGGL 

0920  PAi-641 

LHLD  SAVE 

j>  F-3  ?y 

3PHL 

0923  C9 

PET 

UPLOG: 

09 3D  19 

DAD  D 

09 3H  3E80 

MV I  A,  3 Or! 

09 CO  A 4 

AM  A  H 

09C1  =3 

XCHG 

09 C2  C2Q209 

JMZ  MEG PS 

09Cd  2  AF24 1 

LHLD  ON  EG 

09C8  19 

DAD  D 

09 C 9  3  £50 

MV  I  A ,  3CH 

09 C3  A 4 

AMA  H 

*•* 

09 CC  3 £01 

MV I  A,  1 

09 C-  C  3 

RZ 

0? CF  £3 

XCHG 

09 DO  Ar 

XRA  A 

09  D  1  C  9 

SET 

HEGRS : 

09  D  2  2  A.-0-- 1 

LHLD  G?05 

39D5  19 

DAD  D 

0906  3350 

MV I  A,  3 OH 

r- 

o  ?  n  3  A  A 

ANA  rl 

09  n 9  3 Err 

MV  I  A , OFF K 

0903  CO 

RMZ 

- 

3?LC  - 3 

XCHG 

09  TO  Ar 

XSA  A 

09.  E  09 

rt  ET 

1 1 1 D 1 3 : 

~  )  '  *  ■-  r  —  J  Q 

CPI  0 

09 El  08 

RZ 

i  j  u- '  ; 

MOV  A , B 

C 9-3  A2Ec 09 

JP  LABEL 

09 Ed  Or 

CM  A 

m 

09 E7  30 

IMS  A 

LABEL: 

09 E3  Or 

MOV  E, A 

r 

02c9  c  6  3  0 

AMI  3 OH 

09  E 3  ;-2r309 

JP  POSEY 

09  EE  1  3  Fr 

MV  I  D ,  0  Fr  H 

r 

09 po  i  •; 

DAD  D 

;  9  !•'  1  19 

DAD  .0 

Ovl-'O  09 

RET 

r 

POJHY : 

;  ,  t-3  1  o  00 

MV I  0,0 

VLB  i  9 

DAD  D 

r 

1  ■> 

DAD  D 

r  *■ 

ritET 

C'i  i’lil.A;' 

1  • 

r 

•  -  1 

Li) A  D33+I 

i  / 

RAL 

i 


PRNTOU  i' 
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o 

09  FC 

DA  1  CO A 

JC  DTiLO 

09  FF 

3AE34  ! 

LDA  D31+I 

« 

0A02 

EE7  F 

XRI  7F!i 

DA  04 

67 

wSGD2 : 

MOV  H , A 

o 

0A05 

3AE&4I 

LDA  J32+1 

0A03 

2F 

CM  A 

CA09 

3C 

INK  A 

e 

0A0A 

E57  F 

XRI  7FH 

0  ACC 

oF 

MOV  L ,  A 

0A0D 

C347CA 

J:'P  OUTPUT 

o 

CAIC 

3AE34 i 

D33LO : 

LDA  D3I+! 

0AI  3 

CD7C0A 

CALL  A3S 

e 

0A!6 

4F 

MOV  C,  A 

0A17 

■3  A 

MOV  E, D 

0AI3 

3Ae54 1 

LDA  D32+1 

0  A 1  B 

CD7C0A 

CALL  A3S 

CAIE 

39 

CM?  C 

CA1F 

22 330 A 

JNC  D32G 

• 

CA22 

3E7F 

MV  I  A, 7FH 

0A24 

91 

SUB  C 

0A25 

4F 

MOV  C,  A 

© 

CA26 

73 

MOV  A, E 

CA27 

FE60 

CPI  3 Or! 

0A29 

79 

MOV  A , C 

e 

CA2A 

CC370A 

C  Z  Cm3 

0A2D 

£E7  F 

XPI  7FH 

0A2F 

67 

MOV  H ,  A 

© 

CA30 

C3050.A 

D32G: 

JMP  USGD2 

0A  33 

3E7F 

MV I  A, 7FH 

© 

0A35 

90 

SUB  3 

0A36 

47 

MOV  B , A 

0A37 

7  A 

MOV  A, D 

• 

0A33 

FE  30 

CPI  80H 

0A3A 

73 

MOV  A,  3 

0A35 

C4370A 

CNZ  CHS 

• 

0A3E 

EE7  F 

XRI  7FH 

0A40 

oF 

MOV  L, A 

0A4I 

3AE34 1 

LDA  D3I+I 

© 

0A44 

EElr 

XRI  7FH 

0A4o 

67 

OUTPUT: 

MOV  H, A 

© 

0A47 

22A242 

SHLD  PREPRINT 

0A4A 

E3 

XCHG 

0A43 

2AFA4I 

LHLD  5CPTR 

o 

0A4E 

73 

MOV  M,E 

0A4F 

23 

I  NX  H 

0A5C 

72 

MOV  M , D 

e 

0V3I 

23 

I  NX  H 

OA52 

22FA4 1 

SHLD  SCPTR 

CAi-j 

2IE24I 

LX  I  H.D3I 

^  * 

t  c  ■'  '0 

MV  I  U,0 

OAbA 

3  AFU-'i  i 

LDA  DCCT 

OAbD 

r 

MOV  :: ,  A 

© 

OAbl: 

19 

DAD  0 

OAbF 

JC 

I  Al!  A 

C 
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’  . 

10 

[  iiR  '' 

r,  *  4,  t 

>  .  t 

r  r.O  j 

CHI  5 

-ft 

0  A  '.i  -i 

j  A  o  /  ’  -/  A. 

JC  LAHcL.2 

\  r>5 

v  r 

LAO  £L?s 

X3A  A 

••ft 

OA  A  7 

1  y  -  R,;  i 

3TA  DCCT 

0A.6A 

-•  -i 

- 1 

XChO 

0A63 

t  A 

LDAX  D 

•ft 

r.  i  ^  ^ 

o  r 

MOV  L,  A 

0A50 

13 

IliX  D 

0A6E 

1  A 

L  J  A  X  l) 

ft 

0A5r 

x  7 

o  / 

MOV  H, A 

0A70 

£3 

XCHG 

0A7  i 

2 AFC4 1 

LHLD  TL.MPT8 

ft 

0A74 

73 

MOV  M , h 

Or.  7  5 

23 

I  NX  H 

OA75 

72 

MOV  M, D 

ft 

CA77 

23 

I NX  H 

0A73 

22FC4 1 

SHLD  TLMPTR 

0A73 

rg 

Rti 

ft 

0A7C 

£  7 

A35  s 

MOV  3, A 

CA7D 

3  ^30 

MV I  A, 3 OH 

ft 

0  A  7  r 

2  A 

AHA  3 

0A30 

57 

MOV  D, A 

0A3I 

73 

MOV  A, 3 

ft 

OAR? 

=0 

RP 

0AS3 

25 

CM.  A 

.  A  3  4 

3C 

I  MR  A 

ft 

CAR  5 

MOV  3, A 

DAB  A 

CHS : 

RET 

ft 

0  A  2  r 

2r 

CM  A 

OAf'3 

10 

INS  A 

CAP? 

C'> 

SET 

ft 

-  \ 

7AJA.4 1 

PARSE?: 

LHLD  INTCHTR 

OAB? 

-i 

XCHG 

o 

•  J  - 

2 A3  44! 

LHLD  PDkFTM 

0  A  v  1 

7  J 

MOV  A, H 

•*j  a  c  7 

*>A 

CMP  D 

«* 

o  \  >;  *? 

02 5 AO 7  . 

Jt!Z  HAITI  Mo 

0A9  & 

1  L/ 

MOV  A  ,L 

0A97 

'•  i 

CMP  £ 

ft 

~  i : 

A0  7 

JMZ  WAITING 

OAA  i 

MV  I  C,  ?. 

CAv  ' 

:o  >407 

CALL  SQUIB 

1* 

r  Iii  I  SHU 

P: 

rj  •  *  , 

■i  1  0-3  / 

LX I  SP, NEED 30 

■  '  '  l\  ; 

1  1  ‘>2  01 

LX I  U, HDI SP I 

.«• 

J A/  0 

1  ~  Yj 

MV I  C, PRINT 

•  ;  vj  to 

CALL  HJ05 

i  - 

lx i  ii,fc;rr 

A  A  •  » . 

-  .  f*  fc. 

»  )  '  i 

MV  i  •.>,ii.<. 

^  4‘  * . 

•  • .  o  >  -\ 

CALL.  1- 1  NLP 

v  A  i  ' 

i  .  /  -  I 

LX  I  11,031 

*  • , 

•  *  -  *VM* 

CALL  CNVOIT-CS 

^  •  . 

O'  r)\ 

CAl.L  OIrPIi 

!> 
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Pftf.ToiJT.  PAN 

.)  \  -A 

o 

OARC 

01  Jr  00  A 

CALL  I  T  NLP 

OABF 

2  lh'44  I 

LXI  ,■  1,032 

e 

OAC2 

C  DO  BOB 

CALL  CUV -crocs 

0AC5 

CDD7QA 

CALL  f) I  CP  IT 

OAC3 

ODE 00 A 

CALL  FILL 2 

« 

OACB 

21 Eft4 l 

LX  I  H ,  033 

OACE 

C  DO  b  C  3 

CALL  CNVRfDCS 

CADI 

CDD70A 

CALL  0102  IT 

0AD4 

C30000 

j;/  2  0 

D I SPITs 

OAD7 

0c09 

MV I  C, PR I NT 

© 

0AD9 

1  1  42-  3 

LX I  D, FDI SP 

OADC 

CD0500 

CALL  BOOS 

OADF 

09 

PET 

o 

FI NLP: 

QAEO 

2 1 tFOA 

LX  I  H  ,  AON+  1 

OAE3 

34 

I  NR  M 

0AE4 

3E1B 

MV I  A, ESC 

j 

0AE6 

CD03F5 

CALL  0F8O3H 

0AE9 

3E3  D 

MV I  k,'=' 

CAE3 

Cu03F3 

CALL  0F803M 

OAEE 

3E3  1 

RON:  MV I  A,  3  III 

OAFO 

CD03F3 

CALL  0F803H 

© 

CAF3 

3E37 

MV I  A , 37H 

OAF  5 

CD03F3 

CALL  0F&03H 

CAF3 

2  1  3742 

LX I  rt,FC«T 

>  © 

OAFS 

7E 

MOV  A ,  ,M 

( 

OAFC 

34 

I  NR  M 

OAFD 

21  4443 

LXI  H, FDISP+2 

(b 

OSCO 

77 

MOV  M , A 

OBOl 

0148-^3 

LXI  3, FDI3P+6 

0504 

C9 

RET 

© 

CNVRTDCS: 

{COMING  IN , HL=ADDRESS  OF  DC  TO  Be  CONVERTED 

; FOR  DISPLAY  OR  PRINT 

© 

5  RC=STORAGE  BUFFER  ADD.  FOR  CONVERTED  VALUE 

0E05 

be 

MOV  E , M 

0306 

23 

IMX  ri 

© 

0307 

56 

MOV  D , M 

OBCS 

E5 

XCHG 

0309 

3ES0 

MV I  A,  3 OH 

© 

0303 

A  4 

ANA  H 

OEOC 

3E20 

MV I  A, '  ' 

OBOE 

F216C3 

JP  CNVC0NT1 

© 

CB  1  1 

CD6304 

CALL  TCI6  ; IF  <0,TAKE  2'S  COMP 

, 

0314 

3E2D 

MV I  A,'-" 

j  « 

CNVCONT  1  : 

i  © 

031  6 

02 

STAX  3  s STORE  SIGN  OF  VALUE  (+  OR  -) 

1 

01317 

03 

I  NX  3 

i 

0313 

Cb 

PUSH  3  {SAVE  BEFORE  CALL  To  MULT  AND  jIVIDE 

j  o 

*  DECIMAL  VALUE  OF  DC  =  HEX  VAl.UE/4  OOOH 

?=>  1 O00*j=c. VAL= 1 000*: IE X  VAL/hOOOM 

{(ELIMINATES  NEED  FOR  FRACTIONAL  DIVISION) 

1 

0319 

22C737 

SliLD  ML 1 P  1 

Or.  1C 

n  1  ECO  3 

LXI  li,10O0 

1 

CBIF 

ACC  1  * 7 

SOLD  0LT22 

?  o 

CDJr 73 

CALL  . UJI.T 

J  1 

1 

OBA-J 

2 AC  1 3  / 

Li  11.0  ANSL 

© 

1 
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PACT  3 


.-'•.  '.'  )J  i  . 

¥ 

V  i  22./J37 

SHLD  DVHDL 

',5?"  2  AO  33 7 

LHI.D  A, -ID./. 

• 

•  ,2.-:  22  523  7 

SiiLD  DV.HDH 

•, i  4  0 

LX  I  H  ,  4  000:  i 

.  •  ::  72  J-1.3  7 

SHLD  D'/GaL 

•*% 

'  '}  1  70 

LX I  .1,0 

•;  .1 A  22-3037 

COLD  D / 3 1 i M 

0330  C DO 00 4 

CALL  DIVIDE 

•  % 

OB 40  Cl 

POP  B 

03" 1  3-31 

MV I  A,'l' 

QB43  2 AD 33 7 

LHLD  OUOTL 

0246  II13FC 

LX  I  D , -  1 000 

0349  19 

DAD  D 

034A  DA530B 

JC  CNVC0HT2 

0  B  4  J  3-30 

MV I  A, /0/ 

03 4 F  1 ! 2303 

LX  I  D, 1 000 

0352  19 

DAD  D 

CKVCONT2* 

0353  02 

STAX  5 

0354  03 

I MX  B 

02  55  322  = 

MV  I  A,'.' 

0557  02 

Si  AX  B 

05d5  • 1  o 

I  MX  B 

0559  CD5D03 

CALL  riTOA 

0350  C9 

HU)  As 

SET 

1% 

0550  1 i 9 OFF 

LX I  D, -  1 00 

0560  CODECS 

CALL  GETASC 

3363  IIF6FF 

LX  I  D , -  1 0 

^303  ^.uOcO  j 

CALL  GET Ad C 

0869  70 

MOV  A,L 

-ip a*.  0630 

ADI  3 OH 

r, ^  '  •>  -> 

oi A X  ri 

006J  09 

PET 

Jc i Aj 0  s 

75 5 £  3 -IF 

MV  I  A,  2 PH 

Gc  I' A3  OL 

0  • 

"373  i  v 

DAD  D 

0371  50 

Il-!2  A 

"..72  U7C05 

JC  CZfASCLP 

2573  '3 

STAX  B 

jm 

??7o  23 

I  MX  .B 

0.  77  .:5 

XC1 IG 

02/:'  c::o304 

CALL  i'Clo 

•  i » 

XCKG 

0570  19 

DAD  D 

J  •  .  y  V-  / 

SET 

01,7  c 

CHOICE: 

XSA  A 

C..7F  1  k)i-42 

LX I  D, FCB  -IE 

;;  •  ■  .'1:3-2 

LX  I  .i ,  FCB  ME 

MOV  ,  A 

XCiiO 

C  ;Li,{ 

MV  I  11,01 

•OV  -  ,  A 

#«• 

I  MX  1 
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PRNTOUT.PHU 

o 

0B6C 

C2C90B 

Ji.’Z  Ci.LR 

0FJ8F 

GEOF 

/.VI  C,OPEM 

e 

Co  9  1 

CEO 

CALL  ; i i.OB 

OR  94 

OE  1  4 

;.;v i  c,.<E\n 

0B96 

C DO 300 

CALL 

© 

0399 

1 18000 

LX  I  0,80:1 

0B9C 

0=09 

iV  I  C , P  R I MT 

0B91£ 

COO bOO 

CALL  ROOD 

© 

OBA  1 

0=0 1 

UHTTBiil: 

‘.‘.VI  C ,  COM  I II 

0BA3 

CDObOO 

CALL  BD05 

© 

03A6 

22Q6S-2 

STA  FC5RQ1 +6 

05A9 

FE3 1 

CPI  3  in 

OBAB 

G  A  dB  w  d 

JZ  TES i 1 

e 

OBAE 

FE32 

CPI  32 H 

C5B0 

CAC1  OB 

JZ  TEST 2 

0353 

3=04 

.<.VI  A,  4 

«z 

0  B!:5 

CD03FB 

CALL  OF SO 3 H 

0333 

C3A10d 

j mp  ocTrsn; 

c« 

C  5RB 

1  1  2=4.3 

TE5T1  : 

LX  I  D, I MTLDC3 

0  3d = 

C3C403 

j:/p  s=ti:jokie:; 

© 

r»  u  n  1 

1  13  443 

TE5T2 : 

LX I  D,Ii.TLDCS+6 

C3C4 

OEOo 

5ETI..0RIEU: 

MV  I  C , 6 

© 

0BC5 

2 1 £24 i 

LX I  H, D31 

0EC9 

r*  “z  ^ 

Li  7  w/  'o  J 

CALL  M0VA3UF 

OBCC 

CDDC03 

CALL  SETPRMDCS 

G 

03CF 

CDF 30 3 

CALL  5ETFDIS? ) 

0BD2 

C9 

RET 

e 

0BD3 

1  A 

MOVAB Ur  t 

; MOVE  'C'  CHARS.  FROM  'D 
LDAX  D 

CBD4 

77 

MOV  M ,  A 

© 

03D5 

13 

I  MX  D 

0BD6 

23 

I  MX  H 

0BD7 

OD 

OCR  C 

© 

05D8 

C203CB 

JNZ  MOV  A3  UF 

CSDB 

C9 

RET 

© 

03DC 

2  1  =24  1 

SETPRMDCS: 

LXI  H , D3 1 

05DF 

0IC042 

LX I  3, PRNT3UF+23 

3BE2 

CDObOB 

CALL  CMVRTDCS 

© 

GBE5 

2  1  =44  1 

LXI  H,  1)32 

GBEo 

01C342 

LXI  B, PRHTBUF+36 

© 

03EB 

CDObOB 

CALL  CMVRTDCS 

OBEE 

21=641 

LXI  H,  [)•  33 

CBF 1 

C-1CC4  2 

LXI  3 ,  P RMTUUF+  >'■ 4 

o 

C'3F4 

CDObOB 

CALL  CMVRTDCS 

0BF7 

C9 

COT 

OpFD 

1  ICC  4  7 

.>=  IV..' ISP  1  : 

LX  I  i’i:  '•  T  • '  :F+2G 

;■  PU 

:>  l  3  4-;  i 

LXI  ii, FDISP  1  +50 

06L  = 

0=06 

/  I  C ,  6 

o 

OOCO 

•  '  j  '  .  ’■* 

CALL  ."'OVA.JCF 

AC  03 

1  1  CM  42 

L.-.i  j , i ijiji'+Bo 

© 

TO  'H'  BUFF 
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....  , 
)  i  •  r  M 


PAOii  V) 


.', J':3 

1  >24  J 

LXI  ;  1  *  F  Li  1 SR  1  +  44 

/•  ^  y 

<  i 

MV  I  c,a 

-» 

*• »  : 

'.j.  30. i 

CALL  MOVAO’JF 

•  '. 

i ;  .,04  :> 

L/I  J,2-r.ifOUt:>-4 

0 ;  1 1 

2  !  -.04  3 

1  x i  0,  f cii  u;)  1  +  10 

% 

DC  1  4 

36 

*/  I 

OC  1  - 

J  -i-i  ~j  J  i  > 

call  mov-abuf 

OC 1  9 

C  5 

ALT 

-•% 

OC  1  A 

21=8-42 

PRn  i.-iDR  J 

LXI  H,  PRHUft 

0C1  D 

3246 

MV I  A, 70 

OC  1  F 

326642 

ST  A  CHARCilTR 

OC  22 

033 DOC 

CALL  PR  INTIT 

r\r*  -v" 

1  -/ 

CO^cOD 

call  tmout 

0C25: 

2133 

MV I  A, 59 

0C2A 

323642 

ST A  LNCNTR 

0C2D 

C9 

RET 

0Z2d 

2  1  A  442 

PRMTIMTLN: 

LXI  H,  PRNT3UF 

0C3 ! 

3245 

MV I  A, 69 

rT* 

0C33 

323542 

STA  CHARCilTR 

OC  35 

rs  p.  p  .'** 

^  -/O  _V'„  w 

CALL  PRINT IT 

0C39 

CD230D 

call  tmout 

JSk 

0C3C 

C9 

RET 

QC3D 

CEO  5 

PR  1 1  IT I T s 

MV I  C, LIST 

C3F 

5E 

PRNTLP: 

MOV  EtM 

OC  40 

2  5 

I  NX  H 

CC“ ! 

croioc 

CALL  3005 

3 A3 542 

LDA  CiiARCilTR 

3C  47 

5- 

OCR  A 

ft 

V./L-  **  *  - 

323542 

S i A  CHARGE  1 R 

^  /?  z. 

C23F0C 

JNZ  PRNTLP 

A  ,  >  •  “ 

P.ET 

GC4r 

02-1 

CL:.' PR 3Ur : 

5  ROUTINE  TO  CLEAR  PRINT 
MV  I  C,6o 

jCd  • 

2  !  A  44  ; 

LXI  H,?RNT3Ur 

0  L  Li  •  * 

2  220 

MV  I  A 1 2 OH 

.O 

0C56 

77 

PRCLRLP  • 

MOV  : ' , A 

0C5  1 

2  5 

I  NX  H 

0C3  ■ 

~  *■ 

OCR  C 

OCbV 

52 ,oOC 

JNZ  PRCLRLP 

0212 

RET 

<• 

' '  C  b  c 

CD  4-rOC 

P  71  .n  1  LL  1  • 

CALL  CLRPrtB Ur 

OC  0 . ' 

32  '.1 

MV  I  A,  ! 

J  ^  7  ~  ^  1  J 

CALL  INTX2PT-J 

Ik 

OCc: 

.:  A  b\42 

5  GET  R (1.25) 

LHLO  PALPRINl’+C 

jCc-  ’ 

1  i  .  u-« 

LXI  :3,P«NTUU;:+I 

(■* 

k:>  .• 

•  •  ,  “• 

CALL  CM VR 2 AT A 

*  *  *>  ; 

*'  •  •  ' 

MET  0(1.  '•.)  ) 

L.i  tL  r  •  PHl:PRINT+4 

• 

\  *  /  | 

'  1  ' 

LXI  H,  t’iRJ  l’:llJr+ 1 

u  *  / 

:  '.:.i  )•.. 

CALI.  CwVROAi'A 

r 

L 
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© 


PRl'TO'JT.PRN 


o 

;  GLl"  V  (  1 . 20  ) 

GC77 

2A8E4  2 

LrlLO  PRHPRT  NT*  6 

c 

0C7A 

01BA42 

LX I  li,?RNTl)’JF+2? 

0C7D 

CD330D 

CALL  C.iVoL/A FA 

;  GET  .02  1(1.23) 

o 

0C3Q 

219642 

LX  I  ri ,  P RcPR I . i  i  +  M 

0CS3 

01C042 

LX I  2,  PR  iTBUr+28 

OCCo 

C  uO  BO B 

CALL  CN VRTDCS 

o 

.GET  032 ( 1 .2b) 

0CS9 

2 1 9042 

LX I  M, PREPRINT* I 6 

0C8C 

0  I  CC 42 

LXI  H, PHi'lTEUE+36 

A 

0C8F 

C  DO  502 

CALL  CNVRTDC3 

•; GET  D33C  1.25) 

0C92 

219A42 

LXI  Hf PREPRINT* 13 

O 

OC95 

01D042 

LXI  8,PRHTBUr+44 

CC98 

COO  5GB 

CALL  CliVRTDCS 

0C93 

212020 

LXI  M, 2020H 

o 

0C9E 

22D542 

SHLD  PRNTBUF+55 

OCA  1 

22E442 

SHLD  PRNT3UF+64 

0CA4 

3E45 

MV I  A, 69 

o 

CCA  6 

325342 

STA  CiiAPCNTR 

OCA  9 

2 1  A  442 

LXI  H.PRNTB’JF 

OCAC 

003300 

CALL  PH  INTIT 

A 

QCAF 

CSE30D 

call  tnout 

CCE2 

^  7 

RET 

PRNTLN2: 

0CE3 

CC4F0C 

CALL  CL R? SB  OF 

0C36 

AF 

XftA  A 

CC37 

CD720D 

CALL  INTX2PT5 

© 

IGET  R  ( 2 . 5 ) 

0C3A 

2A9042 

LHLD  PREPRINT+8 

OCED 

0IAE42 

LXI  B, PRNTBUF+1 0 

© 

CCCO 

CD330D 

CALL  CN VS DATA 

5 GET  0(2.5) 

0CC3 

2A9242 

LHLD  PREPRINT* 10 

e 

OCCo 

013442 

LXI  B, PRNTBUF+1 6 

0CC9 

CD330D 

CALL  CNV3DATA 

;GET  PC 2. 5) 

© 

OCCC 

2  A? 44 2 

LHLD  PREPRINT*  12 

CCCF 

013A42 

LXI  2, P Rn’TBUF+22 

0CD2 

CD330D 

CALL  CNVRDATA 

© 

?  GET  23 1 (2.5) 

CCD  5 

2  1  9C42 

LXI  rl,  PREPRINT*  20 

CCC8 

01C04  2 

LXI  B, PRNTBUr+28 

o 

3CD3 

4-/ 

CALL  CNVRTDCS 

; GET  D52(2. 5) 

OCDE 

2  1  9t42 

LXI  H, PREPRINT* 22 

© 

OCEI 

0 1C  P-4  2 

LXI  B, PRNTBUF+36 

0CE«: 

CL 0503 

CALL  CNVRTDCS 

; JET  D  3 3 ( 2 . 5 ) 

© 

0CH7 

2  1  A042 

LXI  ii,  PRiiPH  INT+24 

C-CEA 

01  [.042 

LXI  L5,  PR:.’ TN'Jr  +  44 

OCEi) 

Ci'OBOB 

CALL  0  iVUTDCJ 

© 

;G.:  1  :u)!J_  CM.. J 

00F0 

0  AA2  1 2 

L;  L:  P N cPR  T  ■<  1  +2 0 

CCH3 

CP  icon 

•CALL  Jk-D.:JT 

o 

o(N'c> 

>2i»:.>4  3 

STA  PHNT’iNr+'.jj 

OCI-9 

CD2D0D 

0  ALL  Gi:TLST 

;!!()  ROLL  CMi'iD 
l«()  PCH  CWNU 
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*• 

r<  # 

32  )C  4  2 

STA  PRUTS UF+mo 
;C£T  PC.i  Cl: ID 

> 

,.J 

6 1 

10 7  L,ii 

J 

111110 

CALL  GETH1T 

/  ■>  •> 

3  2  if  44  2 

st a  pa;mwF+64 

> 

'1  ,  -- 

112m 11 

CALL  CJETLJT 

OjO  ' 

12E5-1.2 

ST  A  PRNT3UF+65 

oicc 

3::-m 

mvi  a, 69 

Z'JQz 

323342 

ST  A  CHARCNT  R 

00 1 1 

2  1  A  44  2 

LX  I  1-UPRiiTSUF 

GDI  4 

013  IOC 

CALL  PA  HIT  IT 

01/ 1 7 

CD £301 

call  trno’it 

GD  1  A 

C9 

RET 

G  ti  M3T  : 

0113 

3EF0 

MV I  A,  OFOH 

ODID 

A  5 

AilA  L 

on  1 3 

1  F 

RAR 

f* 

OD 1  F 

!  F 

RAR 

CD  20 

1  F 

RAR 

0D2 1 

IF 

RAR 

0022 

C3230D 

J.MP  G  ETC  Mil 

GETLST: 

012  5 

3£0F 

MV  I  A,OFH 

<»» 

% 

0127 

A  5 

ANA  L 

GETCMi: 

0123 

FEOA 

CPI  10 

012  A 

1A30OD 

JC  LTIO 

'120 

C637 

ADI  37H 

0*^ 

■  J2r 

CO 

RET 

LTIO: 

0130 

■0630 

ADI  30ri 

0132 

09 

RET 

Ci.'VRD  AT  A: 

;  ML  =  VALUE  TO  3E  COS'VE 
; BC=3EG  ADD.  Or  STORAGE 

0133 

3E30 

MV I  A, 3 OH 

0135 

A  4 

A! i A  H 

i-'-i  ■?  -> 

/ 1- .  •  .  / 

?  ™  4  0 

MV  I  A, 7  ' 

Of.  31 

F2400C 

JP  CMVtiDI 

_0.\> 

v.  1 0  c:0  -’r 

CALL  TCI 6 

013- 

3  £21 

MV I  A,'-' 

CNVRDI : 

•  ■>  *  n 

02 

S  l  A  X  o 

oi  4  T 

03 

I  NX  3 

r 

n  o 

0-5 

PUSH  3 

00"3 

22 0 73 7 

SIILD  ML  TP  1 

0145 

2  l  £3 03 

LX I  il,  1  0 20 

r- 

Of:  44 

220137 

SHLD  MLTP2 

o.j  u; 

CJ3o03 

CALL  lULT 

\J  -I* 

2 AO 33 7 

LtiLD  AilSM 

r 

,  .  > 
l  t 

22-237 

SiiLD  IV if: 

0..5  . 

:v  :i3  7 

LILLI  ANSI 

2.i’JU37 

SHLD  JVNJL 

• 

.:  m3 

.  1  F::OF 

LXi  >i,  40-7  4 

I;.’). 

.  '•  3  / 

SHI. I)  '  VS:! L 

1  .  ‘ 

:  i  o:i:o 

I.  XI  i  i ,  1 

<• 

' 

/ 

Sili.L;  jVHmS 

CALL  01  Vi: Hi 

0  *  / 
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PRHTOUT.  PrfiJ 

© 

006  A 

2 A 088 7 

LULL)  O'JOl'I. 

OUCu 

Cl 

POP  H 

Q 

0D6E 

C 06000 

CALL  iiTOA 

0D7 1 

C9 

RET 

© 

0072 

3234-.:'' 

I JTX2PT5: 

ST  A  X2PT6FLC 

0075 

2 A BA 4 | 

LHLD  I  HTCiiTR 

0073 

22C737 

Si  ILL)  PL  TP  1 

O 

OD73 

2  1  OA-'O 

LXI  ri, 10 

007  E 

22CI37 

SHLD  OLTP 2 

0.081 

009603 

CALL  .MULT 

© 

0084 

2  A  C I  3  7 

LHLD  AHSL 

0087 

3A8442 

LDA  X2PT5FLG 

0DSA 

FEO 1 

CPI  1 

o 

0D8C 

CABrOO 

JZ  SU3TIPT25 

008  F 

E3 

ANDBIT5: 

XCriG 

© 

0D90 

3E03 

MV I  A, 3 

0092 

A3 

Ail  A  E 

0093 

07 

RLC 

Q 

0D94 

213A43 

LXI  ri,  TABLE 

0097 

55 

ADD  L 

0D93 

6r 

MOV  L, A 

O 

0099 

029000 

j  :;c  coMTiwx2 

0D9C 

24 

I  NR  rl 

© 

0090 

22A10D 

CONTI WX 2* 

SHLD  T3LL3L+1 

00  A0 

2A3A43 

T3LL3LS 

LHLD  iABLE 

© 

0DA3 

22AA42 

SHLD  PRNTBUF+6 

0DA6 

3  c2  = 

MV I  A,'.' 

0DA8 

32A942 

ST A  PRNTBUF+5 

© 

0DA5 

E8 

XCHG 

ODAC 

CDCcOD 

CALL  ROTRGHT 

ODAF 

C0C600 

CALL  ROTRGHT 

© 

0032 

!  1  13FC 

LXI  0,-1000 

0DB5 

01 A542 

LXI  3, PRNT3UF+ 1 

ODES 

C06E0B 

CALL  GETASC 

© 

00  E3 

CDuCOB 

CALL  HTOA 

0D3E 

C9 

RET 

© 

00  BF 

1  1  F3FF 

SU3T1PT25: 

LXI  0,-5 

00C2 

19 

DAD  D 

CDC3 

C38F0D 

JMP  A ‘JUS  ITS 

© 

• 

00C6 

AF 

ROTRGHT* 

XRA  A  ?CLR  CARRY 

0DC7 

7C 

MOV  A,H 

© 

0  JC3 

1  F 

HAR 

00C9 

67 

MOV  H, A 

COCA 

70 

MOV  A, L 

© 

cr.'CB 

IF 

RAR 

od  a: 

6F 

MOV  L , A 

coco 

09 

RET 

1 

or.cc 

3=06 

I' Or : 

i.l  V  !  A ,  5 

OL.DO 

328542 

Si' A  CilARCilTR 

© 

Ofj'jJ 

1  EC  A 

iVI  l:,OA:i 

0L7-J 

0  EG  5 

MV I  0,L 1ST 

© 
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pinto 

NT. PEN 

*% 

TOFLP : 

god  i 

cncooo 

GALL 

JDOG 

r* 

'  ut'A 

COE  JOG 

C  n  1 1 

tnou  t 

iAo642 

l'l-i 

c  h  rf  r  c  n  t  r 

-\  ;  ' 
jjjd*. ; 

30 

3  c  r 

a 

\ 

0DE1 

32  3002 

s  ta 

charcntr 

Ci'b't 

0201 00 

jnz 

t  of  Id 

0DE7 

09 

ret 

r% 

tnout : 

Gijc  ^ 

2 1 00 FG 

LX  I 

H.OFOOOH 

TMOliTLP  : 

ODES 

20 

DON 

\ 

ODEC 

C2EB0D 

JNZ 

TMO'JTLP 

CDEF 

25 

DON 

H 

OLiFO 

02 E BOD 

JNZ 

TMOUTLP 

Cur  3 

09 

RET 

; INITIALIZE 

SYS.  CALL 

GO  1 C 

= 

A3SDRV :  ECU 

23 

COG  3 

= 

3005:  EQU 

5 

GO  1  0 

= 

CLOSE:  EQU 

16 

CCC1 

= 

CONI.  I:  ECU 

1 

0002 

= 

CONOJT:  EQU 

2 

000?. 

= 

CONROY:  EQU 

I  1 

00  i  3 

= 

DELETE:  EQU 

19 

GO  1 F 

DRV  Li:  EQU 

31 

0020 

= 

DRVOUT:  EQU 

32 

002  i 

E 3 MSG*  EQU 

33 

o  i 

= 

GETALO*  EQU 

27 

•JO  1  V 

= 

OLTCUR:  EQU 

25 

GOG  7 

= 

GET 103:  EQU 

7 

~C  22 

= 

OETVOB:  ECU 

34 

V>  »  ,!w 

= 

I  i I T :  ECU 

1  3 

\J .  J  \ 

= 

INLINE:  EQU 

10 

J  J  -0 

= 

LIST:  EQU 

5 

00  1  6 

- 

■ » A  i  v  E :  j.  ^  u 

22 

0023 

= 

MOUNT:  EQU 

35 

•">  r  ~  J 

— 

OPr-is:  ~Q  J 

1  5 

GO  IE 

- 

PMYD.-sV:  EQU 

30 

.-Cfc 

0-Q09 

= 

P  . ;  1 :■ ;  •  CU1  J 

P 

go  i  •; 

- 

kcAD*  EQU 

20 

GO  1  7 

r; 

NSNA’-.E:  EQU 

23 

00  1  1 

= 

SEARCH:  EQU 

1  7 

000  E 

ScLtQTs  Eu’j 

1  4 

00  1  0 

= 

SERCHN:  EQU 

13 

00  i  A 

= 

SET CUE:  EQU 

26 

O-'O' 

:r 

SET  1 03:  EQU 

o 

••■o  1  0 

= 

:JN, MONT :  EQU 

29 

t* 

GO  1  -J 

— 

.7 a  IT":  EQU 

2  1 

; END  SYS.  PIN 

i  I"R  S  • 

37  Hj* 

■= 

::E03Q:  EQU 

37SM 

Jo  O', 

= 

JsGYI  P:  EGU 

3600:  i 

:C*  i  /. 

:: 

:i::NP  IP:  ^QU 

3o7A  i 

f 

=t 

oiT.niP:  EQU 

3ol-4  i 

— 

YNDA  i'A :  EOJ 

•tAEO.i 

l  • « .  ■ 

P  i  :J  A  [’  A :  EQU 

•1  A.: 2.  i 

.t  •  • 

— 

UNDATA :  LEM 

1  '.EEm 

* 

*% 

i.ijiu;:*  ; ■  Q tJ 

J  /  ."0,1 

/  V 

./‘..AT  Tl: 

!•  Q(J  3 
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PSii.TOUT.PHN 


0 


0 


e 


© 

© 

© 

© 

© 

© 


© 

© 


© 


© 


© 


© 

o 


© 


© 


© 


CO  IB  = 

ciOCs 

uGtJ  IB:! 

0008  = 

20  s 

Lr'U  3 

CO  PA  = 

LOTS 

LOU  2 Ail 

3700 

Oi/G  370011 

3  7  CO 

cu  r  * 

.08  1 

37  C 1 

A.  .o  L.  • 

DS  2 

37CI 

or.G  37C1B 

37C1 

;.'LTP2 

jS  2 

37C3 

•  • ;  c*  1  •  • 
/\:«c  i*»  • 

DS  2 

3705 

CAWYoV: 

DS  2 

3707 

-ILTPI 

OS  2 

37C9 

A3VSP 

DS  2 

37CF 

URG  37CFU 

37CF 

5  I GN* 

DS  1 

3  7  DO 

DVNDL 

DS  2 

37D2 

DVrID.M 

DS  2 

3704 

JVSfcL 

DS  2 

3706 

DVSS 

DS  2 

3708 

3UOTL 

DS  2 

37DA 

O'JOTM 

DS  2 

37DC 

rtt.V.L* 

DS  2 

370c 

RE  .'.Ms 

OS  2 

37  02 

ORG  37E2H 

37  E2 

mOV  ?  i  R  • 

DS  2 

37E4 

F1MF0 

DS  2 

37  E6 

TMPSP 

DS  2 

37E8 

STRLOC* 

DS  2 

37EA 

STRTPTs 

DS  2 

J7EC 

ALSTs 

DS  2 

37  EE 

A  MSI* 

DS  2 

37FO 

CTR20 

• 

• 

DS  1 

37F 1 

CT360 

• 

DS  1 

37F2 

IVAL: 

DS  2 

37F4 

XZERO 

DS  2 

37  F6 

L ISV5P  s 

DS  2 

37  F8 

FZERO 

• 

• 

DS  2 

37FA 

FOWEs 

DS  2 

37  FC 

FOX  1L 

• 

• 

DS  2 

37FE 

FOX  1  M 

• 

• 

DS  2 

4160 

ORG  4160H 

4  160  50 

IN8UF 

• 

• 

DB  ao 

4161 

DS  1 

4162 

DS  80 

41  E0 

ORG  41  BOH 

4150 

VS  I  HP 

• 

• 

DS  2 

41B2 

VSPTR 

• 

• 

DS  2 

41  84 

PDRFTHs 

DS  2 

4  1  86 

ALTs 

DS  2 

4  153 

SPEED 

• 

• 

DS  2 

4  1  2  A 

i 

TP 

:  DS 

4  1  HC 

PXrFLGs 

OS  1 

41  BO 

rWNTY 

rV 

:  DS 

:  1  06 

OhU  4  1  C6i  1 

4  1  Co 

YSLLVl 

: 

JS  2 

4  1  CA 

()!?'j  4  1 0 Ai  i 

4  10A 

PS1JM1 

: 

DS  2 

4  1  CE 

ORG  4  1  C Li  1 

4 1  OH 

1?  SUM  1 

: 

DS  2 

o 


o 
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PKNTOlJT.Pkli 

c* 

4?C6 

2020 

/  / 

42CH 

DO 

0 

c 

?Ce 

2020 

DB 

/  / 

,2! 10 

03 

6 

42D6 

2020202020 

OB 

/  / 

c 

4  Pi' 3 

2020 

DU 

/  / 

42LD 

2020202020 

DB 

/  / 

4234 

2020 

DB 

/  / 

G 

42E6 

OAOD 

08 

OAK, ODH 

PRHDrt : 

42  E3 

2020202054 

D3 

'  T  ' 

e 

42  F2 

2020522020 

03 

'  fi  0  ' 

42FC 

2020202050 

Do 

'  p  / 

4306 

44433 12020 

05 

'001  DC' 

c 

4210 

3220202020 

03 

'2  DC 3  ' 

43  1  A 

2020524C2E 

DB 

'  aL.C.'MD  ' 

4324 

20504  32h43 

OB 

'  PC.C1ND' 

e 

432C 

OAOD 

0:3 

OAK,  ODli 

INYLOCS 

: 

432E 

'■J  >•  Ay 

08 

00,00  ;90  PEG  D31 

Q 

4  330 

0040 

03 

Ay,  4  i  I1 K  ?  90  uiZ'J  tj  3  2 

4  332 

0  000 

DB 

00,00  ;  90  j=D  033 

^3  — ' 

00' 0 

OE 

00,00  ;  1  30  '  ED  D31 

G 

4336 

0  000 

DB 

00,00  ?  130  t;E0  D32 

4333 

0040 

**\  :*> 
un 

00, 4  OH  ?1~0  '.'EG  D.33 

4  33 A 

3030  TABLE: 

j3 

'00' 

G 

433C 

3235 

DB 

'25' 

33  E 

3530 

D3 

'50' 

4340 

3735 

DB 

'75' 

€ 

4342 

444320203D.-DISP: 

D3 

/  —  / 

Is  v-»  • 

434r 

0AGC 

D3 

OAK, 00 H 

4351 

24 
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The  multiplication  algorithm  used  in  the  program  is  based  on  a  method 
which  was  actually  designed  for  hardware  implementation  in  digital 
systems  known  as  the  Carry-Save  Multiplication.  (See  DIGITAL  SYSTEMS: 
HARDWARE  ORGANIZATION  ANd' DESIGN,  Frederick  J.  Hill  and  Gerald  R.  Peterson.) 

SASIC  DESCRIPTION 


The  process  of  multiplying  two  n-bit  binary  numbers  (to  obtain  a  2n-bit 
product)  can  be  viewed  basically  as  forming  a  'list'  of  n  numbers 
(partial  products,  where  each  oartial  product  (pj_,  i=l,  N)  is  equal  to 
the  multiplicand  shifted  i-1  places  to  the  left  if  the  i^h  bit  of  the 
multiplier  is  1:  otherwise  is  equal  to  0)  to  be  added  together,  one  at 
a  time,  generating  n-1  partial  sums,  the  final  sum  being  the  oroduct. 

This  process,  with  n=4,  is  illustrated  in  the  example  in  Figure  B-l. 

It  is  this  concept  of  the  multiplication  orocess  which  provides  the 
basis  for  the  Carry-Save  algorithm.  There  is  a  difference  however  in 
the  way  in  which  the  partial  sums  are  generated.  In  the  carry-save 
addition  process,  each  column  is  considered  as  essentially  independent 
of  the  others  so  that  the  carry  bits  are  not  propagated,  but  saved  as  a 
separate  value.  This  value  is  then  shifted  left  by  1  and  included  in 
the  next  'addition'.  By  this  process,  n  partial  sums  are  generated. 

The  final  carry-save  value  is  then  added  (normal  addition)  to  the  n^ 
partial  sum  to  get  the  product.  Figure  B-2  illustrates  the  basic  Carry- 
Save  multiplication  process  on  the  same  problem  illustrated  in  Figure  B-l; 
Figure  B-3  illustrates  a  'computer  form'  of  this  example. 

An  analysis  of  this  example  shows  that  each  partial  sum  is  actually  a  MOD  2 
sum  of  the  3  values.  This  can  be  effected  logically  by  XDRing  the  values, 
which  gives  the  following  equation; 

PSi,i=l,n=PSi-l®Pi®CSi-l?  PSo=0 

Though  not  as  obvious,  it  can  be  seen  that  the  logic  equation  for  the 
Carry-Save  value  generated  with  PSi  is: 

CSi,i_i,n=(CSi_i*PSi_i)+(CSi_i-pi)+(PSi_i-pi) ;  CSo=0 

where  *is  logical  AND,  and  +  is  logical  OR.  Thus,  to  implement  these 
equations  in  software  then  requires  only  that  the  machine  provide  the 
capability  to  perform  the  logic  functions  XOR,  AND,  OR. 


IMPLEMENTATION 


TWo  parameters  (the  multiplier  and  the  multiplicand)  are  passed,  in 
memory  locations  3701^,3702^  and  3707^^,3708^^  respectively,  when 
the  MULTIPLY  subroutine  is  CALLed.  Each  of  these  is  a  signed  (mst 
bit  =  SIGN)  ,  16  bit  twos  complement  number.  When  the  multiplication 
is  complete,  a  signed  32  bit  product  is  returned,  in  memory  locations 
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1011 

xllOl 

1011 

0000 

1011 

1011 

10001111 


multiplicand 

multiplier 


partial 

products 

product 


Pi 

P2 

P3 

P4 


0000  * 

PS.  =  D,  +  P3  =  1011 

1  +0000 

01011 

01000  * 

PS,  =  PS,  +  p3  =  01011 

+1011 

110111 


1110000  * 

P  =  PS,  =  PS,  +  p.  =  110111 

J  1011 
10001111 


*The  superimposed  bits  indicate  the  carry  bits  generated  by  the  previous 
column  as  they  propagate  through  each  addition 


FIGURE  B-l 
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1011 

xllOl 

1011 

0000 

1011 

1011 

10001111 


-  PSQ  (for  uniformity) 

-  cs0  (for  uniformity) 
-Pi 


-csQ 

-PSl 

~P2 

-  PS, 

-  CS2 


(shifted  left  by  1) 


-  CSo 

—  PS2 


-  cs3 


(left  shifted  by  1) 


-  CS3  (left  shifted  by  1) 
-PS3 

-P4 

~PS4 

-  cs4 


*-  CS4  (left  shifted  by  1) 

-  PS4 

-  Product 


FIGURE  B-2 
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sig- 

Reg.  Val. 

Reg. 

pso 

0000  1101  ) 

AC  ML 

<=S 

0000 

CS 

Pi 

1011  ) 

MD  *1 

PSi 

1011  1101 

AC  ML 

cs1 

0000  ) 

CS 

Shift 

0101  1110 

AC  ML 

P2 

0000  ) 

MD  -0 

PS2 

0101  1110 

AC  ML 

cs2 

0000  ) 

CS 

Shift 

0010  1111 

AC  ML 

P3 

1011  1 

MD*  1 

ps3 

iooi  mi 

AC  ML 

cs3 

0010  ) 

CS 

Shift 

oioo  ini 

AC  ML 

P4 

ion  ) 

MD-1 

PS4 

noi  nil 

AC  ML 

cs4 

0010  1 

CS 

Shift 

ono  nil  \ 

AC  ML 

Add  = 

prod 

iooo  nil 

AC  ML 

Note: 

left  shift  of  CS  value 

is  accorolished  by  right  shift  of  PS;  . 

FIGURE  B-3 
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37C2^g  37C3^g  37C4^g  to  the  CALLing  routine. 

Before  proceeding  to  multiply  the  two  numbers,  the  subroutine  checks  to 
see  if  either  number  is  0;  if  so,  the  product  is  set  to  0  and  returned 
to  the  CALLing  routine. 

Since,  in  order  to  multiply  the  numbers  they  must  both  be  positive,  the 
routine  now  checks  the  sign  of  both  numbers  and  determines  the  sign  of 
the  product  and  sets  a  flag  accordingly;  then,  the  absolute  value  of 
each  number  is  used.  At  the  end  of  the  multiplication,  the  sign  flag 
is  checked  and  the  product  is  set  accordingly. 
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